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BASIC 


mu Las operacio- 
== nes aritméticas 


AS operaciones arit- 
méticas son aquellas 
que relacionan datos 
numéricos y son las si- 
guientes: 


Suma 
Resta 


Multiplicación 
División 
"Potenciación 


Podemos realizar estas operaciones 
con el ordenador, como si fuese una cal- 
culadora utilizando PRINT. Si escribimos 
una operación aritmética a continuación 
de PRINT, el ordenador nos dará el resul- 
tado de “dicha operación. Veamos un 
ejemplo: y 

”, 10 PRINT 12+16 


Al ejecutar este programa en pantalla 
aparecerá un 28, resultado de la suma, 

Por otra parte, en una expresión aritmé- 
tica pueden aparecer una o varias ope- 
raciones; por tanto, es necesario cono- 
cer el orden que sigue el ordenador al 
efectuar dichas operaciones. Unas ope- 
raciones tienen prioridad sobre otras. La 
prioridad de las operaciones es la si- 
guiente: 


1. Potenciación (to 7). 
2. Multiplicación (*) y división (/). 
3. Suma (+) y resta (-). 


En el caso de igualdad de jerarquía (* 


y / 0 + y —), las operaciones se efectúan 
de izquierda a derecha. 


- 


Añadamos otra línea a nuestro pro- 
grama: 


20 PRINT 24/3-5*213+6%2 
Ahora al ejecutar el programa apare- 
cerá un 28 y debajo un 4, resultado de la 
operación de la línea 20, 


El orden seguido por la máquina para 
efectuar la operación es el siguiente: 


24/3-5"213+612 
FED De 
En cualquier caso, siempre es posible 
alterar la prioridad establecida median- 


: te el uso de los paréntesis necesarios, de 


modo que si una operación está escrita 
entre paréntesis se realizará antes que 
cualquier otra. Por supuesto. si en una 
operación aparecen varios paréntesis, 
se realizarán de izquierda a derecha y si 
hay unos paréntesis dentro de otros, se 
realizarán de dentro a fuera. 

Veamos un ejemplo añadiendo otra lí- 
nea más a nuestro programa: 


30 PRINT ((5+3)/2) 2-(3+1)"3+(4-1) 2) 
Al ejecutar ahora el programa el resul- 


tado de esta línea será un 13. El orden se- 
guido en este caso es el siguiente: 


((5+3)/2)12-(3+ 1)" 3+(4- 1)12) 
¡ES ¿E Fa - E A Pd 0 AT 


0 Operaciones con cadenas 


La única operación que podemos rea- 
lizar con cadenás de caracteres es la 
concatenación, es decir, podemos for- 
mar una cadena única mediante la unión 


AA A A as 


de dos o más cadenas más sencillas. El 
signo empleado para la concatenación 
de cadenas es el de la suma (+), aunque 
su misión es muy diferente. 


Veamos un nuevo programa de ejem- 
plo: 


10 PRINT “SACA"+"CORCHOS"” 
20 PRINT “BUENAS*+" “+“NOCHES” 


Después de ejecutar este programa 
aparecerá en pantalla la palabra SACA- 
CORCHOS y debajo BUENAS NOCHES. El es- 
pacio en blanco constituye una cadena 
más, por lo que va entre comillas. 


m Novedades en la impresión 


Vamos a profundizar más en la instruc- 
clón PRINT para poder sacarle un mayor 
partido. Para conseguir impresiones en 


pantalla más adecuadas y atractivas re- : 


sulta bastante útil conocer las dimensio- 
nes de la pantalla del ordenador con el 
que estamos trabajando, es decir, el nú- 
mero de líneas y el número de columnas 
(número de caracteres por línea). En la fi- 
gura 1 podemos ver las dimensiones de 
los principales ordenadores. 


20, 40, 80 


COMMODORE | 25 | 
SPECTRUM [za | 
[A Dimensiones de pantallas. 


El empleo de ciertos separadores (,) o 
(;) nos permite imprimir varios datos usan- 
do una única instrucción PRINT. La coma 
y el punto y coma tienen diferentes efec- 
tos en el aspecto final de la pantalla. 

El uso del punto y coma (;) supone que 
todos los datos incluidos en una misma 
sentencia PRINT se escribirán con la mínl- 
ma separación posible entre ellos. Así, al 
ejecutar el programa siguiente: 


10 PRINT “OPERACION ";“ARITMETICA*  - 
20 PRINT “18+4=";18+4 


en pantalla aparecerá la frase OPERA- 
CION ARITMETICA y debajo 18 + 4 = 22. 


Este separador suele dejar un espacio 
para el signo en los datos numéricos, te- 
niendo en cuenta que si los números son 
positivos el signo no se imprimirá, apare- 
ciendo en su lugar un espacio en blanco. 

Por otra parte, la pantalla del ordena- 
dor se suele dividir en zonas verticales, 
aunque el número de zonas es variable 
de unas máquinas a otras. En la tabla de 
la figura 3 podemos ver el número de zo- 
nas de los distintos ordenadores en estu- 
dio, así como el número de columna de 
inicio de cada zona. 


N.? de columna 
de Inicio de zonas 
4, 14, 27 
4, 14, 27, 40, 53 
66 


COMMODORE | 4 [|0,40,20,30 


0, 20 
0, 16 


[a Zonas de pantalla. 


Visto esto, podemos decir que el uso 
de la coma (,) para separar distintos da- 
tos dentro de una misma instrucción PRINT 
hace que cada dato aparezca impreso 
en una zona distinta de la pantalla. Evi- 
dentemente, si hay más datos que zonas, 
éstos continúan imprimiéndose en la fila 
siguiente, pero siempre respetando las 
zonas. 

Veamos un ejemplo. Supongamos que 
estamos manejando un ordenador con 
cuatro zonas de pantalla. Vamos a eje- 
cutar el programa siguiente: 


10 PRINT “NOMBRE", “APELLIDO”, “TFNO.", “EDAD" 
20 PRINT “JAVIER”, "GARCIA", 9608034,24 


El resultado en pantalla será algo simi- 
lar al representado en la figura 4, claro 
que antes de ejecutar el programa ten- 
dremos que teclear el comando CLS 
para borrar el listado y dejar la pantalla 


y 


limpia. 
NOMBRE | APELLIDO TFNO. 
JAVIER GARCIA | 96080 34 


A 
[a Ejemplo del efecto de la coma. 


A BASIC 
Funciones y sentencias 


(m de impresión 


Vamos a analizar a continuación diver- 
sas funciones y sentencias que facilitan y 
hacen más atractiva la impresión de da- 
tos en pantalla. Al final de este análisis 
podemos ver una tabla-resumen de las 
«disponibilidades de distintos ordenado- 
'res respecto a ellas: 


(m Función SPC 


Esta función permite imprimir en panta- 
lla tantos espacios como deseemos. Su 
formato es el siguiente: 


PRINT SPC (N); lista de datos 
donde N es el número de espacios que 
deseamos imprimir y lista de datos son to- 
dos los datos de tipo numérico o alfanu- 
mérico (separados por comas o puntos y 
comas) que deseemos imprimir a conti- 
nuación. 

El programa siguiente: 


10 PRINT SPC (20); “EJEMPLO DE SPC” 
imprime en pantalla 20 espacios y a con- 
tinuación la cadena EJEMPLO DE SPC. 

En algunos ordenadores la función SPC 
se puede denominar también SPACES. 


| 
O Función TAB 


Esta función nos permite realizar impre- 
siones en pantalla a partir de la columna 
que deseemos. El formato general es el 
siguiente: 

PRINT TAB(NJ; lista de datos 
donde Nes el número de columna a par- 
tir del cual deseamos imprimir y la lista 
de datos tiene el mismo significado que 
en SPC. 

El programa: 


10 PRINT TAB(14); “EJEMPLO DE TAB" 


imprime la cadena EJEMPLO DE TAB a par- 
tir de la columna 14 de la pantalla. Si es- 
tamos utilizando un ordenador de 40 co- 
lumnas la cadena aparecerá centrada 
en la parte superior de la pantalla. 


Función AT 


La función AT permite la fila y la colum- 
na de la pantalla donde queremos reali- 
zar la impresión. 


- El formato es el siguiente: 
PRINT AT F,C;lista de datos 


donde Fes la fila y C la columna a partir 
de las cuales deseamos imprimir la /ista 
de datos. 


Veamos un ejemplo: 
10 PRINT AT 12,10; “EJEMPLO DE AT" 


Este programa imprime la cadena 
EJEMPLO DE AT en el centro de la panta- 


lla del SPECTRUM. 


O Sentencia LOCATE 


LOCATE es una instrucción indepen- 
diente de PRINT, aunque ligada a él. Su 
objetivo es el mismo que AT, es decir, se- 
leccionar la fila y la columna donde se 
va a realizar la impresión. 


Su formato general es el siguiente: 
LOCATE C,F 


donde C es la columna y Fes la fila. 

Es de observar que los parámetros se 
escriben en orden inverso a AT, sin em- 
bargo, en el IBM el orden es igual que en 
AT, es decir, primero fila y luego co- 


“ lumna. 


Veamos un nuevo programa: 


10 LOCATE 12,13 
20 PRINT “EJEMPLO DE LOCATE" 


La ejecución nos dará como resultado 
la impresión de la cadena EJEMPLO DE 
LOCATE en el centro de una pantalla de 
25 filas y 40 columnas como, por ejem- 
plo, la del AMSTRAD. 


sec | ram | AT | LOCATE | 
[amereao | + [| +.» |  [ + | 
|commonore_ | + | + [| | | 
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Á | Funciones 
de Impresión. 


Resumen. 


A mayoría de las ins- 
trucciones en lengua- 
je máquina necesitan 


pueden representar 

números de 8 bits 
' (Bytes) o de 16 

(Words) y pueden en- 
contrarse en registros de la propia CPU o 
en memoria. 

De la forma en cómo le indicamos al 
microprocesador dónde encontrar estos 
datos tratan los modos de direcciona- 
miento. Intentaremos explicar al lector 
en qué consiste cada uno de los disponi- 
bles en el 2-80. Estos son: 


— implícito. 
— Inmediato. 


— De registros. 
— Directo. 

— Indirecto. 
— Relativo. 

— Indexado. 


lZ 

Esta forma de direccionamiento es la 
utilizada en aquellas instrucciones en las 
que la misma instrucción indica dónde se 
halla el dato a utilizar de forma implícita. 


En la figura 1 puede verse el flujo de da- 
tos típico de esta forma de direccionar. 


Direccionamiento 
implícito 


utilizar datos. Estos : 


MAQUINA 2-80 


MODOS DE DIRECCIONAMIENTO 


Memoria 


Operación 
interna 


46 blis 
8 bits 
lA Diagrama direccionamiento implícito. 


Ejemplos de instrucciones con este "o 
de direccionamiento son: 


— SFC (Set Carry Flag): Pone a 1 la 
bandera (flag), C, de acarreo. Afecta al 
registro F de forma implícita. 

— CPL: Complementa el acumulador 
(cambia ceros por unos, y viceversa). 
(A — A). Evidentemente, afecta de forma 
implícita al acumulador. 


| 
0 Direccionamiento inmediato 


En esta forma de direccionamiento, el 
dato a utilizar es un número que sigue a 


la MAQUINA 2-80 


la instrucción. En la figura 2 puede verse 
el flujo de datos. Con este sistema no es 
necesaria ninguna dirección, ya que el 
dato va incluido de forma numérica en la 
misma instrucción. Por ejemplo: 


LD A,$2F 


. — El signo $ indica que el número va 
en notación hexadecimal. 


Memorla 


Contador prog. 


16 bits 


8 bits 


[4 Diagrama direccionamiento inmediato. 


— LD: (LoaD) quiere decir cargar. 
— A; acumulador. 


Por tanto, esta instrucción carga en el 
acumulador el dato que le sigue inme- 
diatamente después, es decir, $2F. 


Direccionamiento 
(m de registros 


Con esta forma, en principio, el propio 
código de operación de la instrucción in- 
dica cuál es el registro en el que se en- 
cuentra el dato a utilizar y su destino, 
como puede verse en la figura 3. 


Por ejemplo: 


— LD B,C carga en el registro B el con- 
tenido del C. 


8 6 16 bits 


Contador prog. 


46 blts 


— EXDE,AL intercambia los contenidos 
de los pares de 16 bits DE y AL. 


— ADD A,B suma los contenidos de los 


registros A y B. 


Este tipo de direccionamiento suele 
encontrarse combinado con otros tipos 
de direccionamiento, como el inmedia- 
to. 


Por ejemplo: LD A,$16 


Carga en A el número $16 que es inme- 
dlato. 


Esta forma de combinar dos modos de 
direccionamiento es bastante habitual. 


Direccionamiento 
directo 


Este modo de direccionamiento es el 
más utilizado para tomar o dejar datos 
de la memoria, ya que los anteriores no 
tomaban la dirección de la memoria 
principal. 

Este tipo ocupa 3 bytes, en el que el pri- 
mer byte indica la operación a realizar y 
los dos siguientes juntos forman una di- 
rección de 16 bits de la memoria prin- 
cipal. 


Memorla 


8 bits 


Contador prog. 


46 bits 


A ( 
[A] Diagrama direccionamiento directo. 


Presenta la ventaja de ser de un uso 
muy general, pero utiliza mucho más 
tiempo que los anteriores, ya que tiene 
que acceder a la memoria principal 
para determinar la dirección efectiva. 
Además, ocupa más memoria. 


Un ejemplo de uso de esta Instrucción 
sería: 


LD A($1348) 


Esta instrucción cargaría el contenido 
de la posición $1348 en el acumulador. 


' Direccionamiento 
- indirecto 


En este: tipo no se indica la dirección 
en la que está el dato, sino la dirección 
del registro donde está contenida la di- 
rección de memoria en la que está el 


dato. Esto puede parecer un poco com- . 


plicado a primera vista, pero no lo es tan- 
to observando la siguiente figura. 


Las ventajas de este tipo respecto del 
directo es que ocupa menos memoria y 
tarda menos tiempo, pero tiene el defec- 
to de que la dirección debemos cargar- 


IGG 


8 5 16 bits 


Contador prog. 


la anteriormente en el registro a utilizar 
indirectamente. 


Un ejemplo sería: 
LD A,(B,C) 


que cargaría el acumulador con la direc- 
ción indicada por el contenido de los re- 
gistros B y C. 


Direccionamiento 
relativo 


En este caso la dirección efectiva se 
obtiene al sumar un desplazamiento (de 
-127 a 128) a una dirección predetermi- 
nada. Ñ 

Dicho desplazamiento viene indicado 
por un byte que sigue a la Instrucción. 

La dirección predeterminada puede 
ser el contenido del contador de progra- 
ma (dirección de la instrucción que está 
ejecutando)... 

Otra posibilidad es que la predirección 
esté en un registro. Para esta función es- 
tán diseñados los registros de indirección 
IX e 1Y, 


Un ejemplo sería: 
LD A(IX + $9) 


A MAQUINA 2-80 


que cargaría el acumulador con el con- 
tenido de la posición que esté 9 bytes 
por delante de la indicada en el regis- 
tro IX. 


Memoria 


PIPA 


16 blis 


lA Diagrama direccionamiento relativo. 


Q Direccionamiento 
== indexado 


Este es una variante del anterior, con la 
particularidad que tras la ejecución el re- 
gistro Indice utilizado se ve incrementa- 
do en uno, con lo que está preparado 
para repetir el mismo tipo de direcciona- 
miento y seleccionar la siguiente posi- 
ción de memoria. 


Memoria 


PGR 


' 8 blts 


8 6 16 bits 


Contador prog. 


46 bits 


¿ y Diagrama direccionamiento indexado. 


Este tipo y el anterior son especialmen- 
te indicados para trabajar con tablas de 
datos y matrices. 

Un ejemplo sería: 


LDI A,(BC) 


que cargaría la dirección indicada por el 
contenido de BC en el acumulador e in- 
crementaría el contenido de BC en uno. 

Con esto ya conocemos todos los tipos 
de direccionamiento existentes en el 
Z-80. 

Por ello, el siguiente paso será ver de- 
talladamente todas las instrucciones que 
utilizarán estos direccionamientos, vien- 
do su utilidad práctica. 


STE primer programa 
de este tercer tomo 


es un órgano electró- , 


nico que nos permiti- 
rá componer, inter- 
pretar, modificar y es- 
cuchar todo tipo de 
música y ritmos a una 


sola voz. Aunque este programa, funcio- 
ne sólo en el IBM PC, XT y AT, así como en 
todos los compatibles, aparecerán en 


otros tomos las versiones para SPECTRUM, 


AMSTRAD y MSX. 


e MMM MMMM e JO MA TEJER MM O MM RAM E 


PROGRAMAS 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTIÓN 
PROGRAMAS DE JUEGOS 


0 Programa: Organo electrónico por IBM 


METRONOoOmMOo 


ENTRADA DE TOMO 
SAL 1 Dr 


¿GUE - OPCION 
Y QUIERES 1-4)“ 


Menú general del programa órgano 
para IBM, 


101 REM +* * 
102 REM +* MAQUINA DE SONIDO * 
103 REM + * 
104 REM * VARIABLES: * 
105 REM + * 
106 REM * NP. — NUMERAL DE PARTE (OPT) * 
107 REM * TP. - TEMPO (ORG, MET-Y INPUT) * 
108 REM * N$ — NOTA (ORG Y INPUT) * 
109 REM * LB*$ - LABEL DE KEY (ORG) * 
110 REM * HZ — FREQUNCIA (MET) * 
111 REM * DR1 - DURATION DE NOTA (MET) * 
112 REM * DR2 — DURATION DE REST (MET) * 
113 REM * FL$ - FLAG DE ALTO (MET) * 
114 REM +* - FLAG DE NOTA MALA (INPUT)+* 
115 REM * X,Y -— COORDENADAS DE CIRC. (MET) x*x 
116 REM * X1,2- LO MISMO * 
117 REM * NN+$ -— ETIQUETA DE NOTA (ORG) * 
118 REM * ANS — ARRAY DE NOTAS (INPUT) * 
119 REM * RN  —- NUMERAL DE FILA (INPUT) + 
120 REM * ECN -— NUMERAL DE COLUMN (IMPUT)+* 
121 REM * Als - FLAG DE INPUT (INPUT) * 
122 REM * N - NUMERAL DE ELEMENTE (INP) +* 
123 REM * S1$ — STRING DE MUSICA «(INPUT) + 
124 REM * S2$ — LO MISMO , * 
125 REM * BCF$ — NOTA BUENA (INPUT) * 


he PROGRAMAS 


REM * R$ -— RESPUESTA (SI D NO) * 
REM * CE -— RESPUESTA ? * 
REM * K,L,1 - INDICES «e 
REM * * 
REM * LAS PALABRAS ENTRE COMILLAS SON* 
REM * LAS DIFERENTES PARTES DEL PRO- * 
REM * GRAMA. * 
REÍ m6 dd dl Dd dd REM MO EI 


REM 
KEY OFF 
REM 
REM sede de 0006 06 6 
REM * CABECERA  * 
REM HR A A 
REM 
cLs 
WIDTH 40. 
A AA 
FOR 1 = 1 TO 19 
PRINT — "+", TAB(90)3 "*" 
NEXT 1 
PRINT O "de 46 06 36d de 6 96 0 0 DH O MIRE A 
LOCATE 8,131 PRINT "ORGANO ELECTRICO" 
LOCATE 9,123 PRINT "--=-=-==-=-======.mmmm= ” 
LOCATE 12,7: PRINT "(c) Ed. Siglo Cultural, 1987" 
FOR.1 = 1 TO 3000 
NEXT 1 
PEA dd dd JU EA A O DE EME AM 
REM* ELEGIR OPCION * 
Add 
CcLs 
SCREEN 0,0,0 
LOCATE 3,16: PRINT “OPCIONES” 
LOCATE 4,152 PRINT "-—————----- a 


LOCATE 5,13: PRINT "1 —-— ORGANO” 

LOCATE 7,13: PRINT "2 —  METRONOMD” 
LOCATE 8,13: PRINT "3 - ENTRADA DE TONO" 
LOCATE 9,13: PRINT "4 - SALIDA” 


LOCATE 13,3: PRINT "QUE OPCION QUIERES? (1-4)"; 
INPUT NP 

ON NP GOSUB 170,286,340,168 

GOTO 155 

KEY ON 

END 

POE 0 MINIMA 

REM* ORGANO * 

PEAD de 6 Hd Jl JE JE SES Y DA MA ME A 

CLS 

SCREEN 0,0,0 

LOCATE 4,3: PRINT "PULSA 'S* PARA TERMINAR" 
LOCATE 5,3: PRINT "PULSA 'N”* PARA NUEVO TEMPO" 
PRINT:<PRINT “INPUT TEMPO (32-235) - "; 

INPUT TP 

GOSUB 214 

PLAY "T=" + VARPTR$1(TP) 

PLAY "ML MB" 

N$ = INPUTE (1) 

IF N$ = "Q” THEN PLAY"01C8"*RESTORE 265: GOSUB 205 


IF N$ = "2" THEN PLAY"01C48":RESTORE 266: GOSUB 205 
IF N$ = "Y" THEN PLAY"01D8":RESTORE 267: GOSUB 203 
IF N$ = "3" THEN PLAY”O01D48":RESTORE 268: GOSUB 205 
IF N$ = "E" THEN PLAY"O01E8":RESTORE 269: GOSUB 205 
IF N$ = “"R" THEN PLAY"O1F8":RESTORE 270; GOSUB 205 
IF N$ = "5" THEN PLAY"01F48":RESTORE 271: GOSUB 205 
IF N$ = "T" THEN PLAY"0168”:*RESTORE 272: GOSUB 205 
IF N$ = "6" THEN PLAY"D1G+B":RESTORE 273: GOSUB 205 
IF N$ = "Y" THEN, PLAY"O1AB":RESTORE 274: GOSUB 205 


193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 


238. 


239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 


IF N$ = "7" THEN- 


IF N$ = "U" THEN 


IF N$ = "I" THEN: 


IF N$ = "9" THEN 
IF N$ = "0" THEN 
IF N$ = "0" THEN 
IF N$ = "P" THEN 
IF N$ = "N" THEN 
IF N$ = "S" THEN 
GOTO 182 

SCREEN 0,0,0 
RETURN 

REM 

REM *%* BLINK KEY 
REM 

READ X,Y,LE+$ 
LOCATE X,Y 

PRINT CHR$ (219) 
FOR I = 1 TO 100 
NEXT 1 


PLAY”"O1A$8":RESTORE 275: GOSUB 205 
PLAY"O01B8":RESTORE 275: GOSUB 205 

PLAY”02C8":RESTORE 277: GOSUE 205 

PLAY"02C48":RESTORE 278: GOSUB 205 
PLAY"02D8":RESTORE 279: GOSUB 205 

PLAY”"O02D*48": RESTORE 280: GOSUB 205 
PLAY"02E8":RESTORE 281: GOSUB 205 

GOTO 173 

GOTO 203 


* 


LOCATE X,Y 

PRINT LBs 

RETURN 

REM : 

REM KIA O DIBUJA COSAS —AXXXX 
REM 

CLs 

SGREEN 1,1 

REM 

REM IAXARK O BORDE —*AK:X% 

REM 

LINE (5,100) — (305,100) 

LINE (5,5) -— (305,5) 

LINE (5,5) -— (5,100) 

LINE (305,5) - (305,100) 

REM 

REM XXX TECLAS BLANCAS xxx 
REM 

LET X = 35 

FOR 1 = 1 TO 9 


IF (1=3) OR (1=7) THEN Y=5 ELSE Y=70 


LINE (X,Y) — (X,100) 

X = Xx +30 

NEXT 1 

REM 

REM xxx TECLAS NEGRAS *xx*x* 

REM 

LET, X1 = 28 ñ 


FOR 1 = 1 TO 9 


IF (1=3) OR (1=7) GOTO 247 
LINE (X1,5) — (X1,70) 


x2 = xX1 + 14 


LINE (X2,5) - (X2,70) 


REM 4% ETIQUETAS DE LAS TECLAS *xx%x% 


LINE (X1,70) — (X2,70) 
Xi = X1 + 30 

NEXT 1 

REM 

REM 

RESTORE 

FOR IF = 1 TO 17 


READ X,Y,LBS 


LOCATE X,Y: PRINT LB+ 


NEXT 1 
REM 


REM *xx% ETIQUETAS CON NOMBRE ***x* 


E PROGRAMAS 


259 REM : 
260 FOR 1 = 1 TO 10 
261 READ Y,NN+$ 
262 LOCATE 14,Y: PRINT NN+$ 
263 NEXT 1 
264 RETURN 
265 DATA 11,3,"0" 
266 DATA 8,5,"2” 
H 267 DATA 11,7,"w" 
268 DATA 8,9,"3" 
269 DATA 11,11,"E" 
270 DATA 11,14,”"R" 
271 DATA 8,16,"5" 
272 DATA 11,18,"T" 
273 DATA 8,20,"6" 
274 DATA 11,22,"Y" 
275 DATA 8,24,"7" 
276 DATA 11,25,"U" 
277 DATA 11,29,"1" 
278 DATA 8,31,"9" 
279 DATA 11,33,"0" 
280 DATA 8,35,"0" 
281 DATA 11,37,"P" 
282 DATA 3,"C",7,4"D",11,"E",14,"F",189 
2835 DATA "G",22,"0"325,"B",29,”"0",33 
284 DATA "D",37,"E” 
285 REM 
286 REM MM ME MI E 
287 REM* METRONOMO * 
288 REIM0 606 6 MM MINH RA 
289 REM 
290 ON KEY(1) GOSUB 336 
291 ON KEY(11) GOSUB 321 
292 ON KEY(14) GOSUB 325 
293 ON KEY(13) GOSUB 329 
294 ON KEY(12) GOSUB 333 


293 CLS 
296 FRINT "PULSA “Fi” PARA TERMINAR” 
297 PRINT:PRINT "DAME LA FRECUENCIA (40-8000) — "¿: INPUT HZ 
298 IF (HZ > 8000) OR (HZ < 40) GOTO 297 
299 PRINT:PRINT "DAME LA DURACION (1-5) — "32 INPUT DRi 
¿ 300 IF (DRi < 1) OR (DRi > 5) GOTO 299 
301 FRINT "DAME LA PAUSA (1-25) -— "3: INPUT DR2 


302 IF (DR2< 1) OR (DR2 > 25) GOTO 301 
303 LETN=0 

304 SCREEN 1,1 

305 LET FL$ = "y" 

306 KEY(1) ON 

307 KEY(11) STOP: KEY(14) STOP 

308 KEY(12) STOP: KEY(13) STOP 

309 CLS 

310 SQUND HZ, DRi 

311 X = INT(159 + 9OX*(COS(N))) 

312 Y = INT(99 + 9OX(SIN(N))) 

313 CIRCLE ( X, Y),5,2 

314 N=N+ .1 

315 KEY(11) ON: KEY(14) ON 

316 SOUND O, DR2 

317 KEY(12) ON: KEY(13) ON 

318 IF FL$ = "Y" GOTO 307 

319 RETURN 

320 REM **x AUMENTA LA FRECUENCIA *x 
321 IF HZ > 8000 GOTO 323 

322 HZ = HZ + 25 

323 RETURN 

324 REM x** DISMINUYE LA FRECUENCIA *x 


IF hz <= 65 GOTO 327 

HZ = HZ - 25 

RETURN 

REM x**% DISMINUYE LA DURACION DE LA PAUSA *%* 
IF DR2 <= 1 GOTO 331 

DR2 = DR2 -— .5 

RETURN 

REM ** AUMENTA LA DURACION DE LA PAUSA *x* 
DR2 = DR2 + .5 

RETURN 

REM 

LET FL3 = "N" 

RETURN 

REM 

REM 

FE 6d HE IE MEM JE IEEE 
REM* EDITOR DE MUSICA * 
PRE HI MM III HEHE 
REM 

CcLs 

PRINT "(QUIERES INSTRUCCIONES? (S/N)";3 
INPUT R* 

IF R$ = "S” GOTO 350 

IF R$ = "N" GOTO 396 

GOTO 345 

REM **x INSTRUCCIONES xx 

REM 

CLSs 

LOFCATE 3,13: PRINT "INSTRUCCIONES" 
LOCATE 4,123 PRINT  " -—-===== === mmm A 
PRINT 

PRINT ” PARA ESCRIBIR MUSICA NECESITAS DERLE" 
PRINT "LA PROGRAMMA TRES COSAS: ":PRINT 


PRINT " 1 - QUE OCTAVA" 

PRINT " 2 - QUE NOTA" 

FPRINT " 3 — QUE LONGITUD" 

PRINT 

PRINT "LAS OCTAVAS SE ESCRIBEN CON “*On“" 
PRINT " - mn ES LA NUMERO DE LA OCTAVA (0-6)." 
PRINT 


PRINT "LAS NOTAS SON “ABCDEFG” CON "$" Y “-*." 
FRINT 

PRINT "LAS LONGITUDES SON *1,2,3,4,8 ETC." 
PRINT 

PRINT "PAUSAS SON “*P* SEGUIDO DE *1,2,4,9'" 
PRINT 

PRINT "(ENTER PARA CONTINUAR) ” 

INPUT C+ 

CLs 

PRINT 

PRINT "POR EXEMPLO, LA SIGUENTE LINEA TOCA UNA " 


PRINT "A EN LA OCTAVA 1, UNA “B” EN LA OCTAVA 2," 
PRINT "Y UNA “C* EN LA OCTAVA 3. FIJATE QUE LA ULTIMA" 


FPRINT "NOTA ES MAS LARGA.” 


PRINT 

PRINT 

PRINT "0144 02B4 O3C1" 

PRINT 

PRINT "(RETURN ESCUCHAR) ” 

INPUT R$ 

PLAY "MF Ti00 0144 02B4 O3C1"  * 

PRINT 

PRINT 

PRINT "UNA “L” SEGUIDA DE UN NUMERO HACE QUE TODAS" 


PRINT "LAS NOTAS TENGAN LA MISMA LONGITUD": PRINT 
PRINT "FIJATE EN EL EJEMPLO ANTERIOR" 


e 


1 PROGRAMAS 


391 
392 
393 
394 
393 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 


411 
412 


413 
414 
415 
416 
417 
418 


419 
420 
421 
422 
423 
424 
423 
426 
427 
428 
UNA 


429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 


PRINT 

PRINT "L4 01A 02B 0302" 
PRINT 

PRINT "(ENTER PARA CONTINUAR)" 
INPUT R$ 

cLs 

REM 

REM x*x* ENTRADA DEL TONO *x* 
REM 

DIM AN$(360) 

FOR I = 1 TO 360 

LET ANS) = " " 

NEXT 1 

ELS 

PRINT "INTRODUCE LAS NOTAS 
LET 1I=141 

LET N$ = "o" 

WHILE (N$ <> "X") AND (1 <= 360) 
NS = INPUTS (1) 

GOSUB 511 

IF FLé = "N" THEN GOTO 408 
PRINT N$; 

AN$(1) = N+ 

AS IÓ 

WEND 

PRINT 

PRINT 

IF 1 > 360 THEN LOCATE 10,5: 


(X PARA FIN): *” 


PRINT 
¿PRINT "P ULSA RETURN. "3: INPUT R$ 


“NUMERO MAXIMO DE NOTAS AGOTADO" 


LOCATE 1,1: PRINT "(QUIERES CAMBIAR LA MUSICA? (S/N) "3 


PRINT "USA <- Y —-> PARA MOVER EL CURSOR": PRINT "USA “Fi” 


Y 


xo 


A LA VEZ PARA SALIR" 


REM 

REM x** EDITAR CANCION *x* 

REM 

CLS 

INPUT R$ 

IF R$ = "N" GOTO 469 

IF R$ <> "S" GOTO 423 

CLS 

NOTA NUEVA" :PRINT "USA “F1” 
GOSUE 431 

GOTO 449 

REM 

REM ** IMPRESION DE LA CADENA MUSICAL x*x 
REM, 

LET RN = 3 

LET CN = 1 

LETN = 4 


FORK = 1 709 

RN = RN + 2 

LOCATE RN, CN 

FOR L = 1 TO 40 

PRINT ANS (N); 

N=N +4 

NEXT L 

NEXT Kk 

LET RN = 63 LET CN = 4 
LOCATE RN, CN: PRINT "-" 
AL$ = "N" 

RETURN 

REM 


REM ** RUTINAS DE MOVIMIENTO DEL CURSOR x** 


REM 

ON KEY(13) GOSUB 523 
ON KEY(1) GOSUE 539 
ON KEY(12) GOSUB 531 


PARA ENTRAR 


455 
456 
457 
458 
459 
460 
461 

462 
463 
464 
465 
466 
467 
468 
469 
470 
471 

472 
473 
474 
475 
476 
477 
478 
479 
480 
481 

482 
483 
484 
485 
486 
487 
488 
489 
490 
491 

492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
s11 

s12 
513 
514 
515 
s16 
517 
s18 
519 

520 


KEY (12) ON: KEY(13) ON: KEY(1) ON 

IF ALS+ = "N" GOTO 452 

KEY(12) OFF: KEY(13) OFF: KEY(1) OFF 
N$ = INPUTE (1) 


GOSUB 511 
IF N$ = "Xx" GOTO 419 
N = (RN — 6)x20 + CN 


LET AN$(N) = N3$ 

LOCATE RN-1, CN: .PRINT N$ 
LOCATE RN, CNz PRINT " " 
ECN = CN + 1 

LOCATE RN, CN: PRINT "-" 
LET ALS = "N" 

GOTO 452 

REM 

REM x* PLAY STRING *x 

REM 

REM 

REM xx ENSAMELAJE *x* y 
REM 

SiS = "" 

FOR J = 1 TO 180 

Si$ = S13$ + AN*$ (J) 

NEXT J 

Ss2s = ”" 

FOR J = 181 TO 360 

S2+$ = S2$ + AN*$ (J) 


NEXT J 

CL6 

PRINT "(QUE TEMPO QUIERES? (32-255): "3 
INPUT TP 

IF «TP < 32) OR (TP > 255) GOTO 483 
GOSUB 432 

PLAY "ME T=" + VARPTRE (TP) 


ON ERROR GOTO 541 
PLAY "Xx" + VARPTRE (S515$) 
ON ERROR GOTO 541 
PLAY "X" + VARPTRS (52%) 


CLs 

LOCATE 7,1: PRINT "(QUIERES CAMBIAR ESTA CANCION? (S/N) "z 
INPUT R$ 

IF R$ = "N" GOTO 499 


IF R$ <> "S" GOTO 494 


GOTO 427 

LOCATE 8,1: PRINT "(QUIERES TOCAR ESTA CANCION? (S/N) "; 
INPUT R* 

IF R£ = "N” GOTO 504 


IF R$ <> "S” GOTO 499 


GOTO 469 ; : 
LOCATE 9,1: PRINT "(QUIERES COMPONER OTRA CANCION: (S/N):";3 
INPUT R$ 

IF R$ = "N" GOTO 509 


IF R$ <> "S" GOTO 504 Ñ 
GOTO 401 

RETURN 

END 

REM 

REM 

REM 

RESTORE 522 

LET FL$ = "N" : 

FOR K = 1 TO 18 

READ BC+$ 

IF BC$ = N$ THEN FL$ = "Ss" 

NEXT Kk ' 

IF (FL$ = "N") AND (N$ <> "X") THEN SOUND 100, 3 


RETURN 

A A e PANOR er o es AO E la OR E 
REM ; 

REM ** MOVIMIENTO DEL CURSOR A LA DERECHA xx 
REM 

IF (CN = 40) AND (RN = 22) GOTO 530 

LOCATE RN, CN: PRINT " " 

IF CN < 40 THEN CN = CN + 1 ELSE LET CN = 1: RN = RN +2 
LOCATE RN, CN: PRINT "-" 

RETURN 

REM 

REM *x* MOVIMIENTO DEL CURSOR A LA IZQUIERDA ** 
REM 

LOCATE RN, CN: PRINT " ” 

IF (CN = 1) AND (RN > 6) THEN LET CN = 40: 

IF CN > 1 THEN CN = CN - 4 

LOCATE RN, CN: PRINT "-" 

RETURN 

ALS = "y" 

RETURN 

REM 

REM xx ERROREN EL STRING xx 

CcLs 

REM 

PRINT "HAY ERROR EN LA MUSICA." 

PRINT "PUEDE SER POR :":*PRINT 

PRINT "1 — UNA “0” SIN NUMERO DESPUES" 

PRINT " 2 - UNA 'L” SIN NUMERO DESPUES" 

PRINT " 3 -— UNA 'P* SIN NUMERO DESPUES” 
PRINT:PRINT "COMPRUEBA QUE TODAS LAS 075. Lts Y PIS" 
PRINT "VAN SEGUIDAS DE UN NUMERO. " 

RESUME 494 


Este programa se divide entre partes IS TE DERRAEZO, 
distintas: PARA ACUARIOS ZERO DERLE 
1. El órgano propiamente dicho. En a o 
ella aparece el dibujo de un teclado mu- a A EU A 
sical con las teclas que tenemos que pul- LAS OCTAVAS SE ESCRIBEN CON comio 
sar para que suene la música. Antes de A IA 
aparecer el dibujo del teclado, el pro- LAS LONGITUDES SON -1,2,3,4,8 ETC. 
grama nos preguntará el tempo y nos FAUBAM MES 9? EEMUADO DM A 
dará un par de mensajes de información se 
por pantalla. 
2. El metrónomo es un aparato que 532 xro CANES TOA 
m1 | | | | | | | | | | | NOTA ES mas LARGA. EN . e 
| UI AAA 
| | | | 1) Instrucciones de uso del programa 
z| |3 5| le [7 | | | | | | «Organo». 
1 E al | 
a lu _ | rivlulilole] utilizan los músicos para no perder el rit- 
| a dis | DD ma mo. Esta parte del programa simula uno 
E AID CIA A IA A de ellos. Antes de empezar dicha simula- 
. ción, el programa nos pedirá la frecuen- 
Así aparece el teclado del órgano en la cia del sonido, la duración y la pausa en- 
pantalla del ordenador. tre sonido y sonido. 


3. Un compositor musical. Con él po- 
demos componer música para que la to- 
que el ordenador o bien introducir algu- 
na melodía que conozcamos. Incluso nos 
permite modificar la melodía si nos he- 
mos equivocado. 


Programa: Dragones 
y mazmorras 


Este programa es un juego que nos in- 
troduce dentro de las mazmorras de un 
lóbrego castillo medieval. Dentro del 
castillo tenemos que encontrar 4 llaves 
que nos permitirán encontrar al amo del 
calabozo. 


10 BORDER 7: PAPER 7: INK 7: E 
RIGHT O: OVER O: INVERSE 0: CLEA 
R 64567 

20 PRINT — INK 13 PAPER 7; BRIG 
HT 13 FLASH 1;AT 10,6; "DRAGONES 
Y MAZMORRAS" 
30 LOAD ""CODE 
40 LOAD "" 1 


3.60 TO 9600 
560 TO 7000 
10 REM Paredes de pantallas 
20 LET 1=USR 65153: FOR +f=1 
73 PRINT  INK 33 BRIGHT 1;AT 
O3"P"3 NEXT f: FOR £=8 TO 12: 
INT — INK 1; BRIGHT Oj¿AT 4,03" 
NEXT fr FOR f=13 TO 19: FRINT 
INK 33 BRIGHT 1;¡AT +$,03"E"2 NEXT 
f: LET 1=USR 64958: PRINT  INK 
3; BRIGHT 13AT 0,0;"C";AT 20,03" 
E" 
23 RETURN 
25 LET 1=USR 65153: FOR £=1 TO 
73 PRINT  INK 3; BRIGHT 1;AT 4, 
313"0”": NEXT €: FOR £=8 TO 12: P 
RINT — INK 1; BRIGHT O¡AT 4,313" 
"2 NEXT 2 FOR +$=13 TO 19: PRINT 
INK 33 BRIGHT 13AT £,313"0": N 
EXT $: LET 1=USR 649582 PRINT 1 
NK 33 BRIGHT 1;AT 0,313"D"3AT 20 
31:"A" 
27 RETURN 
28 LET 1=USR 651532: PRINT  INK 
3; BRIGHT 1;AT 0,13 "SSS5SS55SSS” 
5 INK 15 BRIGHT 03” 2 
INK 3; BRIGHT 13 "SS5SS5SSSSS” 
29 RETURN 
30 LET 1=USR 65153: PRINT  INK 
33 BRIGHT 1;AT 20,1; "RRRRRRRRRR' 
"3 INK 13 BRIGHT 03" 35 


INK 3 BRIGHT 1; "RERERERRER" 

32 RETURN 

33 LET 1=USR 65153: FOR f=1 TO 
19: PRINT  INK 3; BRIGHT 107 f 
¿03 "E": NEXT f: LET 1=USR 64958: 
PRINT  INK 3; BRIGHT 1¡AT 0,05" 
C"3AT 20,03 "E" 

34 RETURN 

36 LET 1=USR 65153: FOR f=1 TO 
19: PRINT  INK 33 BRIGHT 107 £ 
,313"0"3 NEXT f: LET 1=USR 64958 
: PRINT O INK 3; BRIGHT 13487 0,31 
3"D"¡AT 20,31;"A" 

37 RETURN 

40 LET 1=USR 65153: PRINT  INK 


3; BRIGHT 1¡AT 0,13 "SSSSSSSSSSSSSSS 


SSS8S5 5s8s" 
42 RETURN z 


43 LET 1=USR 65153: PRINT  INK 


31 BRIGHT 1;AT 20,1;"RRRRERRRRRERRR 


RRERERRRRERRRERRER" 
45 RETURN 
50 REM 1 
£0 CLS : GO SUB 6550 
63 IF llave2=1 THEN RETURN 
65 LET 1=USR 64958: PRINT  INK 
63 BRIGHT 1; PAPER 0; FLASH 1:A 
AO 
70 RETURN 
100 REM 2 
110 CLS : GO SUB 6100 
120 RETURN 
150 REM 3 
160 CLS : GO SUB 6400 
170 RETURN 
200 REM 4 
210 CLS : GO SUB 6100 
220 RETURN 
250 REM 5 
260 CLS : GO SUB 6100 
270 RETURN 
300 REM 6 
310 CLS : GO SUB 6100 
320 RETURN 
350 REM 7 
360 CLS : GO SUB 6100 
370 RETURN 
400 REM 8 
410 CLS : GO SUB 6400 - 
420 RETURN 
450 REM 9 
2460 CLS : GO SUE 6400 
470 RETURN 
500 REM 10 
510 CLS : GO SUE 6050 
520 RETURN 
550 REM 11 
560 CLS : GO SUE 6150 
570 RETURN 
£00 REM 12 
610 CLS : GO SUB 6200 
620 RETURN 
650 REM 13 
660 CLS : GO SUB 6550 
670 RETURN 
700 REM 14 
710 CLS : GO SUB 6000 


ls PROGRAMAS 


720 RETURN 1800 REM 36 
750 REM 15 p 1810 CLS : GO SUBE 6150 
760 CLS : GO SUB £000 * 1820 RETURN 
770 RETURN 1850 REM 37 
800 REM 16 1860 CLS : GO SUB 6000 
810 CLS : GO SUB 6350 1870 RETURN 
820 RETURN 1900 REM 38 
850 REM 17 1910 CLS : GO SUB 6000 
860 CLS : GO SUB 4200 1920 RETURN 
870 RETURN 1950 REM 39 
900 REM 18 1960 CLS : GO SUB 4000 
910 CLS : GO SUB 6700 1970 RETURN 
913 IF llave4=1 THEN RETURN 2000 REM 40 
915 LET 1=USR 64958: PRINT  INK 2010 CLS : GO SUB 6300 
63 PAPER 0; BRIGHT 13 FLASH 1; 2020 RETURN 
T 1,153 "L" 2050 REM 41 
9:20 RETURN 2060 CLS : GO SUB 6500 
950 REM 19 2070 RETURN 
960 CLS : GO SUB 6400 2100 REM 42 
970 RETURN 2110 CLS : GO SUB 6450 
1000 REM 20 2120 RETURN 
: 2150 REM 43 
1010 CLS : GO SUB 6300 o EIA 


1020 RETURN 
URN 
1050 REM 21 2170 RET 


1060 CLS : GO SUB 6150 E 
2210 CLS : GO SUB 6100 

1070 RETURN 2220 RETURN 
1100 REM 22 2 2250 REM 45 
1110 CLS : GO SUB 6350 2260 CLS : GO SUB £000 
1120 RETURN 2270 RETURN 
1150 REM 23 2300 REM 46 
1160 CLS : GO SUB 6350 2310 CLS 2: GO SUB 4000 
1170 RETURN 2320 RETURN 
A Ls A SUB 6350 iS , 

: 2360 CLS : GO SUB 4000 
1220 RETURN 


si d 2370 RETURN 
1250 REM 25 2400 REM 48 
1260 CLS : GO SUB 6350 


1270 RETURN 2410 CLS : GO SUB 6000 
1300 REM 26 2420 RETURN 
1310 CLS : GO SUB 6100 2450 REM 49 
1320 RETURN 2460 CLS : GO SUB 6200 
1350 REM 27 2470 RETURN 
1360 CLS : 60 SUB 6000 2500 REM 50 
1370 RETURN 2510 CELS : GO SUB 6250 
1400 REM 28 2520 RETURN 
1410 CLS : GO SUB 6100 2550 REM 51 
1420 RETURN 2560 CLS : GO SUR 6150 
1450 REM 29 2570 RETURN 
1460 CLS : GO SUB 6100 2600 REM 52 
1470 RETURN 2610 CLS : GO SUB 6100 
1500 REM 30 2620 RETURN 
1510 CLS : GO SUB 6050 2650 REM 33 
1520 RETURN 2660 CLS : GO SUB 6200 
1550 REM 31 2670 RETURN 
1560 CLS : GO SUB 4500 2700 REM 54 
1570 RETURN 2710 CLS : GO SUB 6150 
1500 REM 32 2720 RETURN 
1610 CLS : GO SUB 6550 2750 REM 55 
1620 RETURN 2760 CLS : GO SUB 6350 
16550 REM 33 2770 RETURN 
1560 CLS : GO SUB 6400 2800 REM 56 
1670 RETURN 2810 CLS : GO SUB 6200 
1700 REM 34 2820 RETURN 
1710 CLS : GO SUB 6400 2850 REM 57 
1720 RETURN 2860 CLS : GO SUB 6150 
1750 REM 35 2870 RETURN 
1760 CLS : G0 SUB 6050 2900 REM 589 
1770 RETURN 2710 CLS : 60 SUB 6000 


2 TEA ESA <A 


2920 
2950 
2960 
2970 
3000 
3010 
3020 
3050 
3060 
3070 
3100 
3110 
3120 
3150 
3160 
3170 
3200 
3210 
3220 
3250 
3260 
3270 
3300 
3310 
3320 
3350 
3360 
3370 
3400 
3410 
3420 
3450 
3460 
3470 
3500 
3510 
3320 
3550 
3560 
3565 
3566 


3570 
3600 
3610 
3620 
3650 
3660 
3670 
3700 
3710 
3720 
3750 
3760 
3770 
3800 
3810 
3820 
3850 
3860 
3870 
3900 
3910 
3920 
3950 
3960 
3970 


RETURN 
REM 59 
CLS : 60 
RETURN 
REM 60 
CUS 2: 60 
RETURN 
REM 61 
CLS : 60 
RETURN 
REM 562 
CLS : GO 
RETURN 
REM 63 
CLS 3 60 
RETURN 
REM 64 
CLS : 60 
RETURN 
REM 65 
CLS : 60 
RETURN 
REM 66 
CLS : 60D 
RETURN 
REM 67 
CLS : 60 
RETURN 
REM 68 
CLS : 60 
RETURN 
REM 69 
CLS : GO 
RETURN 
REM 70 
CLS : 60 
RETURN 
REM 71 


SUB 


SUB 


SUB 


SUE 


SUB 


SUB 


SUB 


SUB 


SUB 


¡SUB 


SUB 


SUB 


£000 


6200 


6000 


6000 


6350 


6400 


6350 


6350 


6350 


6350 


CLS : 60 SUB 6250 
IF llavel=1 THEN RETURN 
LET 1=USR 64958: PRINT  INK 
63 PAPER 0; 
T 1,153 "L" 


RETURN 
REM 72 
CLS : 60 
RETURN 
REM 73 
CLS : 60 
RETURN 
REM 74 
CLS : 60 
RETURN 
REM 75 
CLS : 60 
RETURN 
REM 76 
CLS : GO 
RETURN 
REM 77 
CLS : 60 
RETURN 
REM 78 
CLS : 60 
RETURN 
REM 79 
CLS : GO 
RETURN 


sub 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


FLASH 1; BRIGHT 14 


6500 


6150 


6400 


£400 


6400 


£400 


6400 


£400 


4000 
4010 
4020 
4050 
4060 
4070 
4100 
4110 
4120 
4150 
4160 
4170 
4200 
4210 
4220 
4250 
4260 
4270 
4300 
4310 
4320 
4350 
4360 
4370 
4400 
4410 
4420 
4450 
4460 
4470 
4500 
4510 
4320 
4550 
4560 
4570 
4600 
4610 
4620 
4650 
4660 
4570 
4700 
4710 
4720 
4730 
4760 
4770 
4800 
4810 
4820 
4850 
4860 
4870 
4900 
4910 
4920 
4950 
4950 
4970 
5000 
soio 
5013 
5015 


REM 30 
CLS : 60 
RETURN 
REM 81 
CLS : GO 
RETURN 
REM 82 
CLS : GO 
RETURN 
REM 83 
CLS : GO 
RETURN 
REM 84 
CLS : GO 
RETURN 
REM 85 
CLS : 60 
RETURN 
REM 86 
CLS : 60 
RETURN 
REM 87 
CLS : 60 
RETURN 
REM 38 
CLS : 60 
RETURN 
REM 89 
CLS : GO 
RETURN 
REM 90 
CLS 3: 60 
RETURN 
REM 91 
CLS : 60 
RETURN 
REM 92 
CLÉS 60 
RETURN 
REM 93 
CLS 2: 60 
RETURN 
REM 94 
CES: 60 
RETURN 
REM 95 
CLS : GO 
RETURN 
REM 96 
CLS 2 GO 
RETURN 
REM 97 
CLS : GD 
RETURN 
REM 98 
CLS : GO 
RETURN 
REM 99 
CLS : GO 
RETURN 
REM .100 


SUB 


SUB 


SsuE 


SUB 


SsukE 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUB 


SUE 


SUB 


SUE 


SUB 


SUB 


SUB 


6050 


6500 


6500 


6500 


6550 


6400 


6400 


6400 


6300 


6300 


$600 


6400 


£400 


6400 


6400 


CLS : GO SUB 6650 


IF llave3=1 THEN RETURN 
LET 1=USR 64958: 


63 BRIGHT 1; 
TAS 


5020 


5100 REM MUERTE DEL ARQUERO 


RETURN 


FLASH 1; 


PRINT 
PAPER 034 


Ñ 


| 


| 


| 
| 


. PROGRAMAS 


5110 LET 1=USR 64958: PRINT AT » 
1y3"S"2 PRINT AT x+1,y3"0R": FOR 
f=1 TO 202 NEXT €: FRINT AT x,y 
Parar x+1,y53”5S": FOR f=1 TO 10 

Oz NEXT € 

5120 LET vidas=vidas-1 

5130 IF vidas=0 THEN STOF 

5140 LET x=10: LET bi=23:3 LET y= 
10: LET q=0: LET e=0: CLS : 60 T 
O 7040 

5190 RETURN 

5950 PRINT AT 21,0; "VIDAS: "¡vida 
sj” PUNTOS: "¡puntos;” LLAVES 
¿"llaves A 

5970 RETURN 

6000 REM DECORADO 1 

£010 BORDER 0: PAPER 0: INK 4: E 
RIGHT Oz CLS 

6020 GO SUE 20: GO SUB 25: 60 SU 
B 30: GO SUB 28 

6040 RETURN 

6050 REM DECORADO 2 

6060 BORDER O: PAPER O: INK 4: B 
RIGHT O: CLS 

6070 GO SUE 3O: GO SUB 36: GO SU 
B 40: GO SUB 20: LET L=USR 64763 
3 PRINT— INK 7; BRIGHT 1;¡AT 10,2 
51”G6CI"¡AT 9,25;"FDH"¿AT 8,26; "E 


6080 RETURN 

6100 REM DECORADO 3 

6110 BORDER O: PAPER Oz INK 4: B 
RIGHT O: CLS 

6120 GO SUB 40: GO SUB 20: GO SU 
B 25: 60 SUB 30 

6130 RETURN 

6150 REM DECORADO 4 

6160 BORDER Oz PAPER Oz INK 4: B 
RIGHT O: CLS 

6170 GO SUB 33: GO SUB 28: GO SU 
B 30: GO SUBE 25 

6180 RETURN 

6200 REM DECORADO 3 

6210; BORDER O: PAPER O: INK 4: E 
RIGHT O: CLS 

6220 GO SUB 28:.60 SUB 30: GO SU 
E 56: GD SUB 20: LET L=USR 64763 
¿ PRINT— INK 7; BRIGHT 1;AT 10,2 


S3"GCI"¿AT 9,253 "EDH"3AT 8,26; "E. 


6230 RETURN 

6250 REM DECORADO 6 

6260 BORDER 0: PAPER 0: INK 4: E 
RIGHT 0: CLS 

£270 60 SUB 30: GO SUB 40: GO SU 
E 33: GO SUB 36: LET L=USR 64763 
3 PRINT O INK 73 BRIGHT 1587 10,2 
5; "GCI"¿AT 9,253 "EDH"yAT 8,263 "E 
6280 RETURN 

6300 REM DECORADO 7 

6310 BORDER O: PAPER O: INK 4: E 
RIGHT 0: CLS 

6320 GO SUE 28: GO SUB 43: GO SU 
B 20: GO SUB 36: LET L=USR 64763 
3 PRINT O INK 73 BRIGHT 13AT 10,2 
53"6CI"3AT 9,25; "EDH"3AT 8,263 "E 


£330 RETURN 

6350 REM DECORADO 8 

6360 BORDER O: PAPER Oz INK 4: E 
RIGHT 0: CLS 

6370 GO SUB 43: GO SUB 28: GO SU 
B 20: 60 SUB 25: LET 1=USR 64763 
6380 RETURN 

6400 REM DECORADO Y 

6410 BORDER O: PAPER Oz INK 4: BE 
RIGHT 0: CLS 

6420 GO SUB 40: GO SUB 43: GO SU 
E 20: 60 SUB 25 

6430 RETURN 

£450 REM DECORADO 10 

6460 BORDER O: PAPER 0: INK 4: B 
RIGHT O: CLS 

"6470 GO SUR 28: GO SUB 33: GO SU 
BE 43: GO SUB 25 

6480 RETURN 

6500 REM DECORADO 11 

6510 EORDER O: PAPER O: INK 4: B 
RIGHT O: CLS 

6520 GO SUB 30: GO SUB 28: GO SU 
B 33: 60 SUB 36: LET 1=USR 64763 
3 PRINT— INK 73 BRIGHT 1;AT 10,2 
53"SCI"¡AT 9,253 "EDH"¡AT 8,26; "E 
6530 RETURN 

£550 REM DECORADO 12 

6560 BORDER Oz PAPER O: INK 4: E 
RIGHT 0: CLS 

6570 GO SUB 40: GO SUB 30: GO SU 
B 33: GO SUB 25 

6580 RETURN 4 

6600 REM DECORADO 13 

6610 BORDER O: PAPER O: BRIGHT O 
2 INK 4: CLS 

6620 GO SUB 28: GO SUB 33: 60 SU 
B 36: GO SUB 43: LET 1=USR 64763 
2 PRINT— INK 7; BRIGHT 1;¡AT 10,2 
53"GCI"3AT 9,25; "EDH";AT 8,26; "E 
6630 RETURN 

6650 REM DECORADO 14 

6660 BORDER O: PAPER 0: INK 4: BE 
RIGHT O: CLS 

6670 GO SUB 40: GO SUB 43: GO SU 
B 20: GO SUB 36: LET 1=USR 64763 
3 PRINT — INK 7; BRIGHT 1;AT 10,2 
5;"G6CI"¿AT 9,25;"EDH"¡AT 8,26; "E 
” 

6680 RETURN 

6700 REM DECORADO 15 

6710 BORDER O: PAPER Oz INK 4: E 

RIGHT 0: CLS 

6720 GO SUB 33: GO SUB 43: GO SU 
B 40: GO SUB 25 

6730 RETURN 

7000 REM BUCLE PRINCIPAL 

7010 CLS 

7020 LET fin=0: LET q=0: LET pan 

talla=45: LET numero=pantallax*S30 
3 LET a=10+INT (RND*2): LET b=10 
+INT (RND*2): LET e=0: LET x=10: 
LET y=15: LET a$="AB" 

7030 LET w=0: LET llavei=0: LET 
llave2=0: LET ITave3=0: LET 1lav 
e£4=0: LET puntos=0: LET vidas=3: 


S O 


LET b1=23: LET 1llaves=0 

7040 LET numero=pantalla*S50: GO 

SUB numero 

7045 GO SUB 5950 

7050 LET k$=INKEYS: LET 1=USR 65 

153 

7060 FOKE 23658,8 

7070 PRINT  INK 43 BRIGHT 1; PAP 

ER O3AT x,y3a*s(1)¡ AT x+1,yzas(2) 

7080 IF k$="0" THEN LET y=y-1: 

PRINT AT x,y3"G" : LET as="GH": 

PRINT AT x+1,y3"H"': IF y<1 THEN 
LET y=1 

7090 IF k$="W" THEN LET y=y+1:2 

PRINT AT x,yr13 "A"¡AT x+1,y-1; 

"BB": LET as="AB"2 IF y>30 THEN 

LET y=30 

7100 IF k$="0” THEN LET x=x-12 

PRINT AT x+2,y3" "¡AT X+1,Y3"E"; 

AT X,Y3"E": LET as="EE": 1F x<1 

THEN LET x=1 

7110 IF k$="K" THEN LET x=x+1: 

PRINT AT x-1,y3" "¡AT X,Y3"C"¡AT 
X+1,Y3"D"2 LET a$="CD": 1F x>18 
THEN  LET x=18 

7120 LET rnd=INT (RND*100): IF r 

nd>95 AND ATTR (9,25)=71 THEN L 

ET q=1: GO SUB 8600 

71235 1F rnd=37 AND x=7 AND y=18 
THEN GO SUB 9900 

7130 IF q=1 THEN LET puntos=pun 
tos+l1 GO SUB 8600 

7140 IF x=1 OR x=18 OR y=1 OR y= 
30 THEN GO SUB 7500 

7220 1F ATTR (x,y)=71 OR ATTR (x 
+1,y)=71 THEN (GD SUB 5100 

7230 1F llaves=4 AND pantalla=50 
AND w=0 THEN GO SUB 8700: LET 
llaves=0: LET fin=1: LET w=1 
7240 1F +fin=1 AND x>7 AND xx<13 A 
ND y=30 AND INKEY*$="W" THEN GO 
SUB 8700: GO TOD 9000 , - 

7250 1F pantalla=60 AND fin=1 TH 
EN LET w=0: LET llaves=4 

7490 GO TO 7050 

7500 IF ATTR (x+2,y)=1 AND INKEY 
$="K" THEN CLS : LET pantalla=p 
antalla+10: LET bi=23: LET q=0: 
LET x=2: LET e=0: GD TO 7040 
7510 IF ATTR (x-1,y)=1 AND INKEY 
$="0" THEN CLS 3: LET bi=23: LET 
pantalla=pantalla-10: LET q=0: 
LET x=18: LET e=0: GO TO 7040 
7520 IF ATTR (x,y-1)=1 AND ¿NKEY 
$="0" THEN CLS 2: LET b1=23: LET 
pantalla=pantalla-1: LET q=0: L 
ET y=30: LET e=0: GO TO 7040 
7530 IF ATTR (x,y+1)=1 AND INKEY 
$="W" THEN CLS : LET pantalla=p 
antalla+1: LET bi=23: LET q=0: L 
ET y=1: LET e=0: GO TO 7040 

7540 1F x>7 AND x<13 AND y=30 AN 
D llaves=0 AND pantalla=50 AND 1 
NKEY$="W" AND fin=1 THEN GO TO 
7000 

7350 1F llaves=4 AND pantalla=50 
THEN GO SUB 8700: LET llaves=0 
2 LET fin=1 


7360 1F ATTR (x,y)=198 AND panta 
lla=71 THEN LET llaves=1laves+1 
3 LET llavei=1: LET puntos=punto 
s+100: GO SUB 7045 

7370 1F ATTR (%,y)=198 AND panta 
lla=1 THEN LET puntos=puntos+50 
3 LET llaves=11laves+i; LET llave 
2=1: GO SUB 7045 

73580 IF ATTR (x,y)=198 AND panta 
1lla=100 THEN LET puntos=puntos+ 
150: LET llaves=11laves+1: LET 11 
ave3=1: GO SUB 7045 

75835 IF ATTR (x,y)=198 AND panta 
lla=18 THEN LET puntos=puntos+5 
O: LET llaves=1laves+1: LET llav 
e4=1: GO SUB 7045 

7390 RETURN E 
8600 1F q<>1 THEN *RETURN : REM 
FLECHA 

8610 LET al=x ? 
8620 PRINT — INK 73 BRIGHT 1;48T a 
1,b13"-"3 INK 4; BRIGHT O¿AT al, 
b1+13" "¡AT al-1,b14+13" "¡AT al+ 
IDA 

8630 LET bi=b1-1 

8640 IF b1<1 THEN PRINT AT a1,1 
3% "2 LET q=0: LET b1i=23: RETURN 


8690 RETURN 

8700 FOR $=13 TO 7 STEP -1: FOR 

s=1 TO 20: NEXT s: PRINT  INK 13 
BRIGHT 13AT +£,313" "2 NEXT 4 

8710 RETURN 

9000 REM FIN 

9010 CLS 


9020 LET cont=0: LET *=18: LET y 
=1 


9030 LET at="AR":* LET s$="GHGHIGIG 


9040 LET 1=USR 64958: PRINT BRI 
GHT 1; INK 43 PAPER 03AT 20,05% 
2 LET 1=USR 65153: PRINT  INK 6; 
BRIGHT 1; PAPER O3AT x,yjas(1); 
AT x+1,yja$(2) 
9045 IF fin=1 THEN GO SUB 9200: 
LET finm=0 
9050 LET k$=INKEYS$: POKE 23658,8 
9060 IF k+$="0Q" THEN LET y=y-1: 
PRINT AT x,y+13" ": LET as="GH"*' 
PRINT AT x+1,y+1;" "2 1F y<1 TH 
EN LET y=1 
9070 1F k$="W" THEN LET y=y+1: 
PRINT AT x,y-13" "¡AT x+1,y-13" 
"3 LET as="AR8": 1F y>15 THEN LE 
T y=15: LET st=s$(2 TO )+s$(1): 
LET cont=cont+1 
9080 IF cont=100 THEN GO TO 930 
o 
9190 GO TO 9040 
9200 LET 1=USkR 65153: PRINT  INK 
63 PAPER 0; BRIGHT 1381 15,13:" 
"MN": PRINT O INK 53 BRIGHT 1; PAP 
ER OJAT 14,13;"KL"3AT 13,13; "1J" 
9210 LET w=0: LET 1=0: LET m$="” 
Te estaba esperando Arquero..." 
9220 FPRINT — INK O5AT 11,w3m* 
9225 FOR £=0 TO 31: PRINT  INK 4 
¿6T 11,f3 OVER 1," ": FOR s=1 TO 


PROGRAMAS 


5: NEXT si: NEXT + 
9230 FOR s=1 TO 50: NEXT s: IF 1 
=1 THEN GO SUE 9240: RETURN 
9235 FOR f£=0 TO 31: PRINT AT 11, 
a YE NEXT £s LET mt=" Sigue y 
llegaras a tu destino": LET 1=1: 
GO TO 9220 

9240 FOR $=0 TO 31: PRINT AT 11, 
$3" ": NEXT €: LET 1=USR 64958: 
PRINT — INK 53 PAPER O; ERIGHT 1; 
AT 13,13;"MN"3AT 14,133"0F": FOR 
f=1 TO 15: NEXT €: PRINT  INK 5 
3 BRIGHT 13 PAPER O3AT 13,13;"0R 
“Ar 14,1375"ST10:, FDR 4310 TO. 13 


NEXT £ 
9245 PRINT AT 13,133" "¡AT 14,1 
33 MPAT AS 13 O 


9250 RETURN 
9310 LET 1=USR 65153: FOR f=15 T 
0 31: PRINT BRIGHT 13 INK 6;AT 
18,f;"0";AT 19,£:"B"z PRINT AT 3 
8,f-13" "¡AT 19,f-13" "2 NEXT £ 
9320 BORDER 1: PAPER 12 INK 7: E 
RIGHT 1: CLS 
9330 LET 1=USR 64958: PRINT  INK 
7; BRIGHT 1;AT 20,03 "GHIJHGIJGIJIHG 
THGHIHIIJHIHIGIGIIIT" 
9340 PRINT  INK 73 BRIGHT 13 PAP 
ER 1;AT 18,0;" EFEFEFEFEFEFEFEFEFE 
EGFEFEFER EFEFEFEFEFEFEFEFEFEFEFE 
EEFEECE 
9350 LET as$="LM": LET 1=USR 6476 
3: PRINT O INK 3; BRIGHT 1;AT 17, 
53 "NO" AT 17,25;"N0": FOR f=13 T 
O 16: PRINT— INK 3; BRIGHT 147 
+,33af3 AT +,253a$: NEXT £: PRINT 
INK 33 BRIGHT 13AT 12,53 "IK"3A 
T 12,253 JK" 
9360 LET 1=USR 64958: FOR f=10 T 
O 11: PRINT  INK 6; PAPER 2; ERI 
GHT 13AT f,43 "KKKKKKKKKKKKEK"; 1 
NK 73 BRIGHT 03 PAPER 13" "o B 
RIGHT 1; PAPER 2; INK 63 "kKKKKKKK 
KK": NEXT £ 
9370 LET 1=USR 64763: PRINT  INK 
4; BRIGHT 1;AT,0,0; "QSTUTTUOSTUDUT 
OSUTUTOISISTS" "¡AT 1,03 "R";AT 
1,73 "RAT 1,113"R"5AT 1,143 "R"; 
AT 1,203 "R" 

9373 LET 1=USR 64763: FRINT  INK 
73 BRIGHT 1;AT 9,93"G6C"3"I"¡AT 
8,9; "EDH"zAT 7,10; "E"¿AT 9,123"B" 

"sAT 8,12; "A" 

9380 LET 1=USR 64763: LET n=14: 

FOR f£=17 TO O STEP —1: PRINT IN 

K 2; BRIGHT 13487 £$,n3"P": LET n= 

n+l: NEXT £ 

9390 LET 1=USR 64958: PRINT AT 4 
1203 "EE": LET 1=USR 65153: PRINT 
AT 3,20; "EL"3AT 2,203 "13" 

9400 PRINT  INK 6; BRIGHT 1;AT 1 

8,0 "A"¡AT 19,03 "E": FOR f=1 TO 
10: NEXT €: PRINT AT 19,03" "¡AT 
18,03" ": PRINT  INK 6; BRIGHT 
13AT 17,13"4"3071 18,15"B": FOR € 

=1 TO 10: NEXT €: PRINT AT 17,1; 
"0%s PRINT AT 18,13" " 

9410 PRINT  INK 65 BRIGHT 1;AT 1 


6,23 "A"3AT 17,23"B": FOR f=1 TO 
10: NEXT f: PRINT AT 16,23" "¡AT 
17,23" ": PRINT INK 63 BRIGHT 
130971 16,33"8"¡AT 17,3¿"B": FOR + 
=1 TO 10: NEXT £: PRINT AT 16,3: 


HOP O PRINTOAT 17,32% 3 FDR $=1 
TO 103 NEXT £ 


9420 FOR £=8 TO 13: PRINT  INK 6 
3 BRIGHT 10871 16,f;"A"¡AT 17,43" 
E": PRINT AT 16,f-13" "¡A8T 17.,f- 
13 ": FOR s=1 TO 10: NEXT s: NE 
XT £ 
9430 LET 1=13: FOR f=16 TO O STE 
F —1: PRINT  INK 6; BRIGHT 1;AT 
Fei IU MPAT 4,1501 LET 1=1+1: 
PRINT AT f,y1-13" "y PRINT AT ++ 
1,1-13" ": FOR s=1 TO 10: NEXT s 
2 NEXT 4 
9440 BORDER O: PAFER O: INK 7: E 
RIGHT 1: OVER O: INVERSE O: CLS 
9450 PLOT OVER 13150,87: DRAW 
OVER 130,50: DRAW OVER 140,0: 
DRAW OVER 10,-50: DRAW OVER 1 
341,0: FOR £=0 TO 15: PLOT  OVE 
R 13153+INT —(RND*38),89+INT (RND 
*48): NEXT + 
9500 LET 1=USR 651532 PRINT  INK 
S; BRIGHT 1;AT 5,14: "1J"3AT 6,1 
AUEL" 
9510 PRINT AT 3,0;" Atraviesa la 
puerta AÁrquerO...'" 
9320 LET 1=USR 65153: PRINT  INK 
63 BRIGHT 1;AT 10,0;"4";AT 11,0 
a" 
9330 LET 1=USR 64763: PRINT — INK 
73 BRIGHT 1;AT 9,28;"6C1";¡AT 8, 
283 "EDH"3AT 7,293"E" 
9335 FOR f=1 TO 50: NEXT +: PLOT 
220,111 
9540 DRAW -25,10: PLOT 220,111: 
DRAW -25,0: FLOT 220,111: DRAW — 
25,-10 
9560 FOR £=4 TO 11: FOR n=18 TO 


23: PRINT AT £,n3" “: NEXT nm: NE 
XT £ 


9570 FOR s=1 TO 10: FOR f=0 TO 7 


3 OUT 254,f: NEXT f: NEXT s: BOR 
DER O 


9580 PAPER O: INK 7: BRIGHT O: C 
Ls 

9590 LET 1=USR 645153: PRINT  INK 
Si BRIGHT 13AT 10,153"1J"3A6T 11 
1153 "EL" 

9595 PRINT AT 8,03" Venger 
ha vencido": FOR f=1 TO 50: NEXT 
f: PRINT AT 8,0;"No pierdas la 
esperanza Arquero ": FOR f=1 TO 
100: NEXT £:3 PRINT AT 7,0," Otra 


oportunidad tendras en el futur 
o Arquero,en tu proxima avent 


Uras..": FOR f£=1 TO 100: NEXT 4 

9600 REM MENU 

9610 BORDER O: PAPER Oz INK 5: E 
RIGHT 1: CLS 

9620 PRINT AT 6,10; "S-JUGAR";¡ AT 

8,10; "I-INSTRUCCIONES" 

9630 LET k$=INKEY+: POKE 23658,8 
9640 IF k$="S" THEN CLS 2 RUN 5 
9650 IF k*$="1" THEN GO SUB 9700 


96650 GO TO 9630 
9700 REM INSTRUCCIONES 
9710 BORDER 2: PAPER 2: INK 6: B 
RIGHT 1: CLS 
9720 LET 1=USR 65153: PRINT  INK 
1; BRIGHT 13 PAPER 73 FLASH 14 
T 0,103 "INSTRUCCIONES" PRINT 1 
NK 5; BRIGHT 1;AT 2,153"1J";AT 3 
153 "EL": PRINT AT 5,03" Escuch 
a atento Arquero: Debes 
conseguir las 4 llaves del vien 
to del Sur.Una vez con ellas de 
bes ir hacia el Este y al entra 
r en una determinada pantalla 
veras que todo sube a tus pies 


9730 PRINT $03" Buena suerte... 
Arquero” 

9740 PAUSE O: GD TO 9600 

9900 REM AMO DEL CALABOZO 

9903 1F llaves<4 THEN 60 TO 991 
o 

9905 1F llaves=4 THEN GO TO 995 
o 

9910 LET 1=USR 651532 PRINT AT 1 
0,153 "KL"¿AT 9,15; "13": PRINT 1 
NK 03 BRIGHT O¡AT 8,13" Soy el 
amo del calabozo": FOR f=1 TO 3 
O: PRINT— INK 73 BRIGHT 1;AT 8,4 
IIOVERIALENE NEXT £: FOR f=1 TO 
30: NEXT 4: FOR f=1 TO 30: PRIN 
T.AT8O,)t3" "1 NEXT £ 

9915 LET q$=" llaves": IF llaves 
=3 THEN LET q$=" llave” 

9920 PRINT  INK 03 "BRIGHT Oz AT 8 
¿UL Debes encontrar ";4-llav 
esiq*+: FOR f=1 TO 30: PRINT  INK 
7; BRIGHT 1;AT 8,f; OVER 13" "> 
NEXT $: FOR f=1 TO 30: NEXT €: 

FOR $=1 TO 30: PRINT AT 8,f3" ": 
NEXT 4 

9930 LET 1=USkK 64958: PRINT  INK 
63 BRIGHT 13AT 9,15;"MM"; AT 10, 
153"02": FOR F=1 TO 15: NEXT Fz 
PRINT — INK 5; BRIGHT 1;AT 9,15;" 


OR"3AT 10,153"5": FOR £=1 TO 15: 
NEXT $3 PRINT AT 9,153" "3AT 1 
015 Ly 
9940 RETURN 
9950 LET 1=USR 65153: PRINT AT 1 
0,153 "KL";AT 9,155 "13": PRINT 1 
NK 03 BRIGHT O¡AT 8,1;" Soy el 
amo del calabozo": FOR f=1 TO 3 
O: PRINT  INK 7; BRIGHT 1;¡AT 8,4 
3 OVER 13" “2 NEXT €: FOR £$=1 TO 
30: NEXT 4: FOR f=1 TO 30: PRIN 
TAT8)f3":"2 NEXT £ 
9960 PRINT — INK 03 BRIGHT O¿AT 8 
s13" Busca la Pantalla del Este 
"* FOR f=1 TO 30: PRINT  INK 7; 
BRIGHT 13AT 8,f; OVER 13" ": NEX 
T 4: FOR f=1 TO 30: NEXT f: FOR 
f=1 TO 30: PRINT AT 8,f3" ": NEX 
TEE y 
9970 LET 1=USR 64958: PRINT  INK 
4; BRIGHT 10871 9,153 "100"; INK 4 
3 BRIGHT 1;AT 10,15;'"05": FOR F= 
1 TO 15: NEXT F:z PRINT — INK 63 B 
RIGHT 13AT 9,15;'2kK";AT 10,15;"5 
"3 FOR f=1 TO 15: NEXT 4: PRINT 
AT I151” “yAT 10,153" ” 
9980 RETURN 


Aunque el programa pueda parecer un 
poco largo, los resultados una vez meti- 
do y ejecutado, son realmente sorpren- 
dentes. Este juego cuenta con más de 
cien pantallas distintas dentro de las 
cuales estate seguro que te perderás. 

Antes de introducir el segundo progra- 
ma de los dos que componen el juego, 
introduce el que aparece a continua- 
ción: 


10 REM dem dd dd 6 DI IIA A 
20 REM * PROGRAMA PARA INTRODUCIR * 
30 REM * LOS NUMEROS DE LA FIG. 4 +* 
BO REM mea 1606 M6 E HE HEM MI A 


50 REM 
60 CLS 


70 PRINT "INTRODUCE LOS NUMEROS UNO A UNO Y" 
80 PRINT "PULSA “ENTER” DESPUES DE CADA UNO" 


90 LET N=0 


100 FOR 1=64568 TO 655 
110 INPUT "NUMERO = 


120 POKE 1,A 
130 LET N=N+A 
140 NEXT 1 


150 IF N<>64588 THEN GOTO 500 


160 CLS 


170 PRINT "PREPARA LA CINTA PARA GRABAR Y” 


180 PRINT 


190 PRINT FLASH 1; "PULSA UNA TECLA” 


200 PAUSE O 


. PROGRAMAS 


SAVE "GRAFICOS" CODE 64568,65536-64568 
220 CLS $ K 

230 PRINT "OPERACION TERMINADA” 

GOTO 9999 
CLs 
510 PRINT "HA HABIDO ALGUN ERROR EN LA INTRODUCION" 
PRINT "DE LOS NUMEROS. INTENTALO DE NUEVO” 


Este programa te va a servir para intro- 0140520293264 0 160 64 
ducir todos los números que aparecen 016080000001 40000 
en la figura 4. 00080004002008032 


064001281600000000 
0.01 168 0 33 153 254 17 88 255 
237 176 201 1 168 0,33 88 255 1 
7 153 254 237 176 201 O 48 98 66 
51 75 107 95 75 50 50 40 36 66 
66 99 0 24 (164 164 152 164 172 2 
46 165 152 1164 66 66 66 36 66 O 
25 61 61 25 61 189 127 61 25 36 
36 36 66 66 66 0 12 70 66 204 21 
O 214 250 210 76 76 20 36 66 66 
1980000001 34000000 
128 68 122299555315 94 1 
84 143 160 160 160 192 240 0 2 1 
3 16 42 40 69 82 0 O 128 240 72 
16723600084 255 4 8 192 2 
24 248 254 254 248 224 192 3 7 3 
1 127 127 317 30 24 24 60 60 1 
26 255 255 255 255 126 60 60 24 
24000000000000000 
0 01 157 89 76 56 192 87 113 1 
4 230 5 205 5 198 30 47 117 118 
27 3 190620 60 66 66 126 66 
b6 00 124 66:124 66 66 1240064 
0 66 64 64 66 60 0 0 120 68 66 6 
6 68 120 0 0 126 44 124 64 64 12 
600 126 64 124 64 44 44 00 60 
£6 654 78 66 £0 0 0 66 66 126 66 
66 66 0062888862002 2 
2 66 66 60 0 0 68 72 112 72 68 
66 0.069 64 69 54 64 126 0 0 66 
102 90 66 66 66 0 O 66 98 82 74 
70 66 0060 66 66 66 66 £0 0 0 
124 66 66 124 64 64 0060 66 £ 
6 82 74 60 0 0 126 132 132 248 1 
36 132 32 0 241 0 240 9 8 290 0 
23 249 52 140 20 32 48 38 74 144 

144 244 122 1 60 2 


1 168 O 33 81 252 
176 201 0 1 168 O 


255 237 176 201 


(141 


ÑO 


o 


ocooocoooso 
o0OO0O0O00o00ooo 


o0C0CO0OCc0CoO0o0ooooOo 
00000000CcooNN 


000000000000 
NOO0OOO0OCOOoOOoOoOo 


on 


0000000000 
0000000000oO 


o000coocoooo 
00000000000 


00000000 ooo 

NOo0o0o0CcCoooooooo 
o 
WO0Oo0ooo0ooocooo0—S 
00000000000 
00000000000 


1 168 33 20 17 8e 
176 201 0 1 168 O 33 88 
17 20 253 237 176 201 66 90 36 
60 24 60 126 189 165 153 60 102 
102 102 36 195 189 189 189 40 6 
O 60 126 255 36 219 231 231 231 
219 189 189 0 O 165 90 90 60 0 
PR E A 
O 0 128 128 192 192 192 224 224 
224 224 192 192 192 128 128 0 0 
127 255 127 36*36 36 36 0 248 2 
5Z 248 144 144 144 144 36 36 36 
36 36 36 36 36 144 144 144 144 1 
44 144 144 144 36 36 36 36 36 36 
2535 255 144 144 149 144 144 144 
252 252 60 74 98 169 147 165 82 
60 255 25353 255 126 126 £2 £0 60 
60 60 24 24 24 8 B O 255 255 25 
S 126 28 28 8 8 255 253 252 120 
56 48 16 0 255 255 143 1444 0 
0001 168 0 33 215 253 17 88 2 
55 237 176 201 O 1 168 0 33 88 2 
553 17 215 253 237 176 201 3 3 7 
7 15 63 255 255 192 192 224 224 
240 252 235 255 255 255 252 240 
224 224.192 192 255.255 63 157 
733036 91 81 42 36 75520 1 


15] 
(41 


N 
U 


nunooooococ oo oo 
N 
a 


6 236 18 164 74 146 1080004 Estos son los números que tienes que 
74 181 7217000005 138 116 ÍA introducir en memoria con ayuda del 
137004 106 14566834000 programa 3. 


O 160 89 166 17 255 64 64 64 255 


A O Estos números que tenemos que intro- 
a A ducir son las rutinas en código máquina 


SA E A 


INSTRUCCIONES 


a 
b 
v 
n 
a 
ES 


Mp O 
MA7iLmn 


| 
A Instrucciones del programa «Dragones y 
mazmorras». 


y los caracteres programados por el: 


usuario (UDG) que se utilizan en el pro- 
grama. 

Una vez que estén todos los números 
metidos en la memoria del ordenador, el 
programa los grabará en una cinta de 
cassette. 

Ahora es el momento de meter el pro- 
gramd más largo. Lo tendrás que grabar 
a continuación de los números. Según 
esto, hay que seguir cuatro pasos antes 
de tener el programa. 

Estos números que tenemos que intro- 
ducir son las rutinas en código máquina 
y los caracteres programados por el 
usuario (UDG) que se utilizan en el pro- 
grama. 

Una vez que estén todos los números 
metidos en la memoria del ordenador, el 
programa los grabará en una cinta de 
cassette. 

Ahora es el momento de meter el pro- 
grama más largo. Lo tendrás que grabar 
a continuación de los números. Según 
esto, hay que seguir cuatro pasos antes 
de tener el programa listo para jugar. Es- 
tos son: 


1. Introducir el primer programa de 


lo. 

2. Introducir el programa 3. 

3. Ejecutar el programa 3 e introducir 
los números que aparecen en la figura 4. 
Después habrá que grabar los números 
introducidos a continuación de lo que ya 
habíamos grabado. 


los dos que componen el juego y grabar- 


4. Introducir el segundo programa 
que compone el juego y grabarlo a con- 
tinuación de los dos caracteres. 


VIDAS 3 PUNTOS: QA 


LLAVES: Y 


A | Dos pantallas del juego en plena 
ejecución. 


Hay que hacer una advertencia: todas 
las letras que aparecen subrayadas en el 
programa no son letras normales del or- 
denador, sino los caracteres gráficos de 
éste. Para introducirlos en el programa 
tenemos que poner el cursor en modo 
GRAPHICS y pulsar la tecla que corres- 
ponda. 

Las teclas que nos van a permitir mover 
a nuestro héroe por la pantalla y de una 
habitación a otra son: 


O Movimiento hacia arriba 
K Movimiento hacia abajo 
A Movimiento hacia la izquierda 
W Movimiento hacia la derecha 


Programa: Estadística 


El programa que aparece a continua- 
ción está especialmente pensado para 
aquéllos que, estudiando una carrera o 
por su trabajo, necesitan hacer cálculos 
estadísticos con cierta velocidad. 

Este puede funcionar perfectamente en 
el IBM. Para el resto de los ordenadores 
hay que realizar los siguientes cambios: 


COMMODORE: 
Caracteres definibles utilizados en el 26 PRINT CHR$(147) 
programa. 59 PRINI CHRS( 147) 


DNXCO0>qN- 


REM 0d 6 6 6 DD HD 6 INEM III 
REM IMA ESTADISTICA (RECTAS DE REGRESION) FONINNNAAARAR 


SI POR : JUAN MANUEL GUTIERREZ LEITON RANKIA NARRA 
FEA 0 6D HEM M MMMM MD MMMM MMM HE MMM MMM MIMI IA A 


REM 
REM 


REMAIN 
REM RR (0) EDICIONES SIGLO CULTURAL (1987) rod 0 IHR 
REM dl 6 6 6H MM MEM MH MI MM IE 
REM este programa sirve para trabajar con variables 

REM estadisticas bidimensionales 

REM x --> x” es la pregunta por si hay cambio en la variable x 


REM y --> y” es la pregunta por si hay cambio en la variable y 


REM o(x) es la marca de clase de la variable x que ocupa el lugar central 
REM c(x) es la amplitud del intervalo de la variable x»x 
REM o(y) es la marca de clase de la variable y que ocupa el lugar central 
REM c(y) es la amplitud del intervalo de la variable y 


REM al0 es la media de la variable x 


REM 


a0i es la media de la variable y 


REM — m20 es la varianza de la variable » 

REM — m'20 es la varianza de la variable x cuando ha habido cambio x --> 
REM — mÓ2 es la varianza de la variable y 

REM m'02 es la varianza de la variable y cuando ha habido cambio YE I Y 


REM mii es la covarianza 
DIM Z(1600) 


CLS 


INPUT "numero de datos de x ":A 
INPUT "numero de datos de y "¡BE 
INPUT "x —-->x* (S/N) "3X* 
INPUT "y =->y" (S/N) "3Y$ 
IF X$="S" OR X$="s" THEN GOTO 33 
GOTO 35 
INPUT "o0:)="3C 
INPUT "c(x)="3D 
IF Y$="S" OR Y$="s" THEN GOTO 37 
GOTO 39 
INPUT "o(y)="3E 
INPUT "c(y)=";F 
FOR G=i TO A 
PRINT "x("363")="3 
INPUT Z(G) 
NEXT G 
FOR G=1 TO B 
PRINT "y("3G6G3")="; 
INPUT Z(G+A) 
NEXT G 
1=0 


60 


100 
101 
102 


FOR G=1 TO A 
FOR H=1 TO B 
I=1+1 
PRINT "X"5G3"Y"3H; 
INPUT Z(A+B+1) 
NEXT H 


NEXT G 

N=0 

FOR G=B+A+1" TO B+A+Ax*B 
N=N+Z (G) 

NEXT G 

CcLs 

LOCATE 12,35 

PRINT "poblacion="3N 

GOSUB 225 

J=0 

FOR G=1 TO A 


FOR H=1 TO BE 
J=3+7 (6)*Z (G*A+B+H) 
NEXT H 
NEXT G 
J=J/N 
L=0 
FOR G=1 TO E 


FOR H=1 TO A - 
LsL+Z (A+G)*Z (A+G+B*H) 
NEXT H 
NEXT G 
L=L/N 
M=0 
FOR G=1 TO A 


FOR H=1 TO B 
M=M4-Z (6) *Z (H+A)*Z (H+A+Bx*G) 
NEXT H 
NEXT G 
M=M/N 
O=0 
FOR G=1 TO A 


FOR H=1 TO B 
O=O+ (7 (6) 72) *Z (GrA+E+H) 
NEXT H 
NEXT G 
0=0/N 
=0 
FOR G=1 TO B 


FOR H=1 TO A 
P=SP+(Z (A4+6))"2*Z (A+FG+HXB) 
NEXT H 
NEXT G 
P=P/N 
IF X$="s" OR X$="S" THEN GOTO 104 


IF Y$="S" OR Y$="s” THEN GOTO 102 
GOSUB 223 
GOTO 106 
GOSUB 204 


103 GOTO 106 

104 IF Y$="S" OR Y$="s" THEN GOSUB 157:GOTO 106 
105 GOSUB 185 

106 CLS 

107 LOÓCATE. 8,22 

108 PRINT "medias de las variables estadisticas" 
109 LOCATE 9,22 

SS A a A 


111 


LOCATE 11,26 


112 PRINT "media de la variable x=";J 
113 LOCATE 13,26 
114 PRINT "media de la variable y=";L 


180 
181 


GOSUB 225 
LOCATE 8,27 
PRINT "momentos respecto al origen” 

LOCATE 9,27 

PRINTS o e a 

LOCATE 11,35 

PRINT "all="3M 

LOCATE 13,35 

PRINT "a20=";0 

LOCATE 15,35 

PRINT "a02=";P 

GOSUB 225 

LOCATE 8,19 

PRINT "momentos centrales o respecto de la media” 
LOCATE 9,19 

A O TS v 
LOCATE 11,30 

PRINT"mi1="¿M-Lx*J 

LOCATE 13,30 

PRINT"m20="30-J%2 

LOCATE 15,30 

PRINT"m02="3P-L92 

GOSUB 225 

LOCATE 8,18 

PRINT"pendientes de las rectas de regresion" 
LOCATE 9,18 

PR INT AA e e e e e a e e e e e y 
LOCATE 11,25 

PRINT"pendiente 1="3 (M-LxJ)/ (0-32) 

LOCATE 13,25 

PRINT"pendiente 2="3 (M-L+*J)/(P-L"2) 

GOSUBE 225 

LOCATE 8,18 

PRINT "formulas de las rectas de regresion” 
LOCATE 9,189 

PRINT ===> a in AS a 


_ LOCATE 11,15 


PRINT "de y sobre x --> y —"pL¿"="p (M-LAJ) / (0902330 (xo GI 


LOCATE 13,15 

PRINT "de x sobre y --> x -"3J¿"="3 (M-L*J)/(P-L02)p" (y —"9L3")" 
GOSUB 225 

END 

CcLs 


LOCATE 4,10 

PRINT"datos estadisticos cuando hay cambio en las variables x e y” 
LOCATE 5,10 

A a 
LOCATE 7,25 

PRINT "media de x'="3J 

LOCATE 9,25 

PRINT "media de y'="¿L 

LOCATE 11,25 

PRINT "a'1l1="¿M 

LOCATE 13,25 

PRINT "a'20="30 

LOCATE 15,25 

PRINT "a'02="3P 

LOCATE 17,25 


3 PRINT "m'11="3M-Jx*L 


LOCATE 19,25 

PRINT "m'20="30-J*2 
LOCATE 21,25 

PRINT "m'02=";¿P-L"2 
M=D*FxM+Dx*E*J+FCALACHE 
D= (D92) DOC 2E2ADACII 
P=(FO2)xAP+ES2+2FAEXL 
J=D*J+C 


182 L=Fx*L+E 

183 GOSUB 225 

1894 RETURN 

185 LOCATE 4,10 

186 PRINT "datos estadisticos cuando hay cambio en la variable x" 
187 LOCATE 5,10 

188 PRINT *" 

189 LOCATE 7,20 

190 PRINT "media de x'="3J 
191 LOCATE 9,20 

192 PRINT "a'1l1="¿M 

193 LOCATE 11,20 

194 PRINT "a'20=";0 

195 LOCATE 13,20 

196 PRINT "m'11="3M-JxL 
197 LOCATE 15,20 

198 PRINT "m'20="30-J%2 
199 M=D*M+Cx*L 

200 O=0*D"2+0"24+2*C*Dx*J 
201 J=Dx*J+C 

202 GOSUB 225 

203 RETURN 

204 LOCATE 4,10 

205 PRINT "datos estadisticos cuando hay cambio en la variable y” 
206 LOCATE 5,10 


207 PRINT " 
208 LOCATE 7,20 


209 PRINT "media de y'=";L 
210 LOCATE 920 
211 PRINT "a'1l1i="¿M 
212 LOCATE 11,20 
213 PRINT "a'02="¡P 
214 LOCATE 13,20 
215 PRINT "m'11="3M-JxL 
216 LOCATE 15,20 
217 PRINT "m'02="3P-L"2 
2198 P=PxF"24+E"24+2xEXxFL 
219 M=Mx*F+E*J 
220 L=L*F+E 
221 GOSUB 225 
222 RETURN 
223 REM esta subrutina no necesita hacer ningun cambio 
224 RETURN 
225 LOCATE 23,23 
226 PRINT "pulse una tecla para continuar" 
227 A$F=INKEYS 
228 IF A$="" THEN GOTO 227 
229 CLS 

RETURN 


datos estadísticos cuando hay cambio en las a'02 = 772.5313 
variables x e y m'11 = 144.3609 

media de x' = 14.73661 m'20 = 298.8101 

media de y' = 21.03125 m'02 = 330.2178 

a'11 = 454.2902 q pulse una tecla para continuar 


a'20 = 515.9777 


(A Ejemplo de ejecución del programa de 
estadística. 


PROGRAMAS 


medias de las variables estadísticas 


media de la variable x = 48.20983 
media de la variable y = 130,1875 


pulse una tecla para continuar 


=3 estadística. 


60 POKE 214,12:POKE 211,1 
106 PRINT CHR$(147) 
107 POKE 214,8:POKE 211,22 
109 POKE 214,9:POKE 211,22 
111 POKE 214,11:POKE 211,26 
113 POKE 214,13:POKE 211,26 
116 POKE 214,8:POKE 211,27 
118 POKE 214,9:POKE 211,27 
120 POKE 214,11:POKE 211,35 
122 POKE 214,13:POKE 211,35 
124 POKE 214,15:POKE 211,35 
127 POKE 214,8:POKE 211,19 
129 POKE 214,9:POKE 211,10 
131 POKE 214,11:POKE 211,30 
133 POKE 214,13:POKE 211,30 
135 POKE 214,15:POKE 211,30 
138 POKE 214,8:POKE 211,18 
140 POKE 214,9:POKE 211,18 
142 POKE 214,11:POKE 211,25 
144 POKE 214,13:POKE 211,25 
147 POKE 214,8:POKE 211,18 
149 POKE 214,9:POKE 211,18 
151 POKE 214,11:POKE 211,15 
153 POKE 214,13:POKE 211,15 
157 PRINT CHR$(147) 
158 POKE 214,4:POKE 211,10 
160 POKE 214,5:POKE 211,10 
162 POKE"214,7:POKE 211,25 
164 POKE 214,9:POKE 21 1,25 
166 POKE 214,11:POKE 211,25 
168 POKE 214,13:POKE 211,25 
170 POKE 214,15:POKE 211,25 
172 POKE 214,17:POKE 211,25 


' A Ejemplo de ejecución del programa de 


210 POKE 214,9:POKE 2 


SPECTRUM: 


174 POKE 214,19:POKE 211,25 


. 176 POKE 214,21:POKE 211,25 


185 POKE 214,4:POKE 211,10 
187 POKE 214,5:POKE 211,10 
189 POKE 214,7:POKE 211,20 
191 POKE 214,9:POKE 211,20 
193 POKE 214,11:POKE 211,20 
195 POKE 214,13:POKE 211,20 
197 POKE 214,15:POKE 211,20 
204 POKE 214,4:POKE 211,10 
206 POKE 214,5:POKE 21 
208 POKE 214,7:POKE 2 


214 POKE 214,13:POKE 
216 POKE 214,15:POKE 2 
225 POKE 214,23:POKE 2 
229 PRINT CHR$(147) 


MSX Y AMSTRAD: 


Para que este programa pueda funcio- 
nar en estos dos ordenadores, lo único 
que hay que hacer es cambiar de lugar 
los argumentos de todas las sentencias 
LOCATE que aparezcan en el programa. 
Por ejemplo, si tenemos la línea 127: 


127 LOCATE 8,19 


los que tengan un MSX b un AMSTRAD ten- 
drán que poner: 


127 LOCATE 19,8 


Y 

11 

11 

212 POKE 214,11:POKE 21 
21 

1 

1 


Los usuarios del SPECTRUM sólo tienen 
que cambiar todas las sentencias LOCA- 
TE que aparezcan en el programa por 
sentencias PRINT AT, conservando el or- 
den de los argumentos y añadiendo un 
punto y coma (;) al final de la línea. Por 
ejemplo, si tenemos la línea 127: 


127 LOCATE 8,19 
nosotros tendríamos que cambiarla por: 
127 PRINT AT 8,19; 


S útil señalar que el 
aspecto concreto de 
la tabla de decisión 
suele variar, pero es 
usual utilizar una serie 
de normas comunes 
'que conviene tener 
en Cuenta: 


— Normalmente, se suelen incluir las 
reglas tipo AND (Y) las primeras de la ta- 
bla; para poner a continuación, en co- 
lumnas sucesivas, las reglas OR (0) y, por 
último, la regla ELSE, si hay en la tabla de 
decisión de que se trate. 


— Cuando una condición debe cum- 
plirse en la evaluación de una regla de de- 
cisión, se suele poner una S en la fila 
correspondiente; si no debe cumplirse, 
se suele poner una N (ver figura). Pero 
puede suceder que esa condición no in- 
tervenga (ni sí ni no) en la regla de deci- 
sión correspondiente, entonces suele po- 
nerse una raya (—) en la fila, si la regla 
de decisión es de tipo AND, y un asteris- 
co (*) si la regla es de tipo OR. 


— Se llaman funciones de decisión al 
conjunto de evaluaciones que las defi- 
nen y por el mismo orden en que se en- 
cuentran. Se llaman funciones simples 
aquellas en que no intervienen los signos 
— y*; por el contrario, aquellas en que sí 
intervienen estos signos, se llaman com- 
puestas. 


— Es importante comprobar las tablas- 


de decisión para asegurarse de la com- 
pletud y no redundancia de las informa- 
ciones; en efecto, no tiene sentido incluir 
condiciones que no aparezcan refleja- 


TECNICAS 
DE ANALISIS 


TABLAS DE DECISION (4) 


Situaciones 


Condición 1 
Condición 2 
Condic. 
caso A 
Condic. 
caso B 
Condic. 
caso € 
Condición 4 


Condición m 


Tratamiento 1 
Tratamiento 2 
Tratamiento 3 
(ir a tabla B) 


xXxx|ju uZz Z VW ZZ 
XXX|Z Zo 06 n mu 
OSMA OO O UA 


Tratamiento m 


Un ejemplo de tabla de decisión. 


das con una S, al menos en alguna de las 
funciones de decisión de la tabla (com- 
pletud). Del mismo modo, la información, 
no debe ser redundante: las diferentes 
reglas de decisión deben diferir, al me- 
nos, en alguna de las situaciones de de- 
cisión. Este proceso de comprobación se 
complica cuando las tablas son amplia- 
das y existen funciones de decisión com- 
puestas. Para transformar tablas de deci- 
sión en programas, pueden establecerse 
los siguientes pasos (partiendo de trata- 
mientos elementales): 


a) Escribir todas las situaciones posi- 
bles, asignando a cada situación los tra- 
tamientos correspondientes y formando 


da TECNICAS DE ANALISIS 


la tabla con reglas simples. El que los tra- 
tamientos sean unitarios e independien- 
tes es muy importante cara a la simplifi- 
cación de los procesos y a su posible 
corrección posterior. Asimismo, es funda- 
mental que las reglas sean unitarias e in- 
dependientes unas de otras, Esta es, qui- 
zá, la fase crítica del diseño de la tabla 
de decisión y donde ha de ponerse en 
juego la capacidad de análisis de quien 
diseña la tabla. 


b) .Agrupar todas las situaciones que 
conducen al mismo tratamiento elemen- 
tal. A veces es muy útil establecer un 
conjunto flexible de reglas AND y OR ar- 
ticuladas para agrupar el conjunto de si- 
tuaciones que conducen a un tratamien- 
to; si conceptualmente se refieren a un 
proceso, deben analizarse conjuntamen- 
te, aunque se ubiquen dentro de la tabla 
en posiciones diferentes. Deben conside- 
rarse las diferentes funciones de la tabla 
de decisión como un esquema lógico de 
análisis (útil para asegurar la consisten- 
cia de los datos, la facilidad de depura- 
ción de errores, etc. ), pero no como es- 
quema de proceso en el desarrollo del 
programa: éste debe tener su propia es- 
tructura y su propia lógica. 


c) Han de simplificarse las reglas 
simples agrupándolas en reglas com- 
puestas, de acuerdo con el criterio ge- 
neral indicado en el apartado anterior. 


d) Pasar a formato tabla, ordenando 
las reglas de acuerdo con un criterio de 
frecuencia y número de «indiferencias» 
que en ella aparecen. (Se considera que 
aparece en la tabla de decisión una «in- 
diferencia» cuando en la columna 
correspondiente existe un — o un *; es 
decir, cuando la condición de que se tra- 
te no interviene en la definición de la fun- 
ción de decisión que se está analizan- 
do.) Si se conoce la frecuencia de apa- 
rición de las reglas de la tabla, se sitúan 
en las primeras posiciones las reglas 
para las que el producto de la frecuen- 
cia de aparición por el número de indi- 
ferencias sea mayor. Si no se conoce la 
frecuencia de las reglas, se escriben pri- 
mero las reglas con mayor número de in- 
diferencias, 


e) Por último, al pasar al ordinogra- 
ma correspondiente, se ha de trasladar 
primero la primera regla y de ésta, la 
condición que contenga menos indife- 
rencias. 


mm Datos escalares 


NA de nuestras activi- 
dades más frecuen- 
tes en la vida diaria 
es la toma de datos y 
la realización de me- 
' didas. Hablamos, por 
ejemplo, de que un 
objeto pesa 2 kg, de 
que la velocidad de un automóvil es de 
50 km por hora o de que la temperatura 
ambiente es igual a 27” C. Al realizar to- 
das estas medidas y expresarlas median- 
te números, estamos utilizando (aunque 
a menudo no somos conscientes de ello) 
una escala de medidas apropiada. Por 
ejemplo, al medir la masa de los objetos 
utilizamos en el sistema internacional de 
medidas de masa, basado en el kilogra- 
mo, y la medida de 2 kg marca una po- 
sición dentro de esta escala. Al mencio- 
nar la temperatura hacemos uso de la es- 
cala Celsius. Y así sucesivamente. 

Sin embargo, un mismo dato podría re- 
presentarse por dos medidas diferentes 
dependiendo de la escala que utilice- 
mos para medirlo. Por ejemplo, la misma 
temperatura ambiente se representa por 
la cifra de 27* C en la escala Celsius, y 
por la de 300* Kelvin en la escala de gra- 
dos absolutos. Los dos números, 27 y 300, 
se refieren, por tanto, a la misma situa- 
ción real. Pero para darnos cuenta de 
ello es preciso mencionar la escala de 
medida que se ha utilizado para obtener 
cada dato. En efecto, es evidente que 21 
no es igual a 300, considerados como nú- 
meros aislados. Pero también es obvio, 
para quien conozca las escalas de tem- 
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peratura, que 27” C es lo mismo que 
300” K. 


”C “K 


(Es! 


| 
LA Fig. 1. 


Todas estas magnitudes, que pueden 
representarse mediante un número que 
depende de la escala de medida que se 
utilice en cada caso, se llaman «magni- 
tudes escalares». También se dice que el 
dato concreto es un «escalar». Como 
puede imaginarse, la palabra «escalar» 
viene de «escala». En Matemáticas se lla- 
ma escalar a toda magnitud susceptible 
de medida, que no tiene dirección. 

Vamos a considerar ahora un caso 
algo más complicado: una longitud de 2 
cm ¿es un escalar? Es evidente que se 
trata de una magnitud susceptible de 
medida, pero ¿tiene dirección? A prime- 
ra vista podría parecernos que la longi- 
tud siempre tiene dirección. Pero pense- 
mos en esto: supongamos que decimos 
que una línea trazada en una hoja de pa- 


E TECNICAS DE PROGRAMACION 


pel tiene una longitud de 2 cm. ¿Hemos 
dicho algo sobre su dirección? Es eviden- 
te que no. La línea podría ir de arriba a 
abajo, de derecha a izquierda, estar muy 
cerca de un borde, en el centro del pa- 
pel, etc., manteniendo siempre la longi- 
tud de 2 cm. Por tanto, la medida de lon- 
gltud no tiene dirección, y se trata tam- 
¡bién en este caso de un dato escalar. 


a Vectores 


Ahora bien, si marcamos sobre una re- 
gla dos puntos separados por una distan- 
cia de 2 cm y especificamos la situación 
del punto de partida y el de llegada, sí 
estamos dando información sobre la di- 
rección. Si la línea comienza, por ejem- 
plo, en la marca de 12 cm y termina en 
la de 14 cm, el par (12, 14) nos indica que 
la longitud de la línea es de 2 cm, pero 
también especifica algo más, pues nos 
da la posición exacta que ocupan esos 
2 cm sobre la regla. Es decir, tenemos in- 
formación sobre la dirección. Por otra 
parte, obsérvese que este par de datos 
nos da también información sobre el sen- 
tido del movimiento al pasar del punto 
de partida al de llegada. En efecto, el 
par (12,14) indica que comenzamos en 
la marca 12 cm y avanzamos hasta la 
marca 14 cm, mientras que el par (14,12) 
nos hará recorrer en la misma línea en 


Fig. 2. 


sentido contrario. Por todas estas razo- 
nes, el dato (12,14) no puede considerar- 
se como un escalar, sino como un «vec- 
tor». 

En Matemáticas se llama vector a todo 
conjunto de datos que define la magni- 
tud, la dirección y el sentido de una me- 
dida. La palabra vector viene del latín y 
significa «el que conduce», pues los da- 
tos que constituyen un vector (como en 
el par de números 12,14) nos «conducen» 
desde el principio hasta el final de la 


magnitud provista de dirección y de sen- 
tido a la que están midiendo. 

Veamos otro ejemplo. Supongamos 
que trazamos una línea de 2 cm de lon- 
gitud, pero esta vez la línea no está mar- 
cada en el borde de una regla, sino di- 
bujada en una hoja de papel en blanco. 

¿Cómo definiremos exactamente su po- 
sición, dirección y sentido? Muy sencillo: 
igual que en el caso anterior, basta con 
dar la posición del punto de partida y el 
final de la línea. Pero ¡cuidado! En este 
caso estos puntos no quedan determina- 
dos por un solo número, como en el caso 
del borde de la regla. Veamos por qué. Su- 
pongamos que decimos que el punto de 
partida se encuentra a 10 cm del vértice 
inferior izquierdo del papel. Pero ¿en 
qué dirección debemos movernos esos 
10 cm? ¿Horizontalmente? ¿Verticalmen- 
te? ¿En diagonal? 


No es difícil comprobar que, en este 
caso, la posición exacta del punto de 
partida queda determinada por dos me- 
didas de longitud: las distancias de di- 
cho punto a dos de los bordes del papel 
que sean perpendiculares entre sí. Por 
ejemplo, podemos decir que el punto de 
partida de la línea se encuentra a 10 cm 
del borde izquierdo y a 7 cm del borde 


- inferior. Del mismo modo, el punto final 


puede estar a 10 cm del borde izquierdo 
y a 9 cm del inferior. Por tanto, el par 
(10,7) define la posición del punto de 
partida y el par (10,9) la del punto final 
de la línea, y el conjunto de datos 
((10,7), (10, 9) define la longitud (2 cm), 
la dirección (vertical) y el sentido (de 
abajo a arriba) de la linea entera. Se tra- 
ta, por consiguiente, de un vector. 


y —— == 


De igual manera puede verse que, 
para definir perfectamente la magnitud, 
la dirección y el sentido de una línea si- 
tuada en el espacio, es preciso dar la po- 
sición del punto de partida y del punto fi: 
nal, pero ahora cada una de estas posi- 
ciones vendrá determinada por tres dis- 
tancias a tres planos perpendiculares en- 
tre sí: los que definen la longitud, la an- 
chura y la profundidad. Por tanto, un vec- 
tor en el espacio estará formado por un 
par de datos, cada uno de los cuales 
consta de tres números diferentes. Por 
ejemplo: ((2,4,6), (2,4,8)) define una lí- 
nea de 2 cm de largo situada en direc- 
ción de la profundidad y en el sentido de 
las profundidades crecientes. 

Se llama sistema de referencia el con- 
junto de líneas, puntos o planos que uti- 
lizamos como base de partida para me- 


[A Fig. 4. 


dir distancias. En el caso del borde de la 
regla, medíamos las distancias respecto 
al punto de la regla marcado con el 
cero, por lo que nuestro sistema de refe- 
rencia era dicho punto. En el caso de la 
hoja de papel, medíamos las distancias 
respecto al borde inferior y el borde iz- 
quierdo de la hoja; luego estas dos rec- 
tas constituían nuestro sistema de refe- 
rencia en este caso. Por último, en el 
ejemplo del espacio utilizamos como sis- 
tema de referencia tres planos perpen- 
diculares entre sí (véase la fig. 4). 

En la práctica, siempre puede elegirse 
el sistema de referencia donde más nos 
convenga. Por ejemplo, en el caso del 


segmento situado sobre el borde de la ' 


regla, podríamos utilizar como base de 
las medidas el punto señalado con la 
marca de 12 cm (el origen de nuestro 


vector). El segmento quedará ahora de- 
finido por un par de números (0,2), pues 
el primer punto coincide con la base de 
referencia (su distancia a ella es cero) y 
el segundo se encuentra a 2 cm de dis- 
tancia. De igual manera podríamos to- 
mar como sistema de referencia en la 
hoja de papel dos líneas perpendicula- 
res que pasen por el origen del segmen- 
to cuya dirección y magnitud queremos 
determinar, con lo que el vector queda- 
ía transformado en ((0,0), (0,2)). Final- 
mente, en el espacio, tomaríamos tres 
planos perpendiculares que se corten 
precisamente en el origen del «vector, 
con lo que éste quedaría definido por 
((0,0,0), (0,0,2)). 

Obsérvese que, de acuerdo con este 
convenio, el origen del vector queda 
siempre representado por uno o varios 
ceros. Por tanto, podemos prescindir de 
él. El vector quedará perfectamente 
definido por las distancias desde el pun- 
to final al punto inicial (el origen) en las 
diversas direcciones. Así, pues, el seg- 
mento trazado sobre el borde de la regla 
vendría representado únicamente por el 
número (2). La línea dibujada en la hoja 
de papel por el par (0,2). La línea traza- 
da en el espacio por la tríada (0,0,2). 


Recapitulando: 


1. Sobre una línea recta (como el 
borde de una regla), para definir total- 
mente la longitud, la dirección y el senti- 
do de un segmento dado basta con dar 
un solo número: (2) en nuestro ejemplo. 

2. Sobre un plano (como la hoja de 
papel), para definir totalmente la longi- 
tud, la dirección y el sentido de un seg- 
mento dado hay que dar dos números: 
(0,2) en nuestro ejemplo. 

3. En el espacio, para definir total- 
mente la longitud, la dirección y el senti-. 
do de un segmento dado hay que dar 
tres números: (0,0,2) en nuestro ejemplo. 


Veamos otro ejemplo. El segmento de 
la figura 5 quedará definido, en el siste- 
ma de referencia que pasa por su origen, 


. por el vector (2,2). De aquí se puede de- 


ducir su magnitud (2.828427...), su direc- 
ción (una inclinación de 45”) y su sentido 
(de abajo a arriba). 

Vamos a fijarnos ahora en lo siguiente: 
una línea recta tiene una sola dimensión; 
un plano tiene dos dimensiones, el espa- 


cio tiene tres dimensiones. Por otra parte, 
un vector sobre la recta queda definido 
por un número; un vector sobre el plano 
por dos números; un vector en el espacio 
por tres números. Esto no es casualidad. 

En Matemáticas se utilizan a menudo 
espacios de más de tres dimensiones. 
Pues bien: un vector queda siempre defi- 
nido en estos espacios por tantos núme- 
ros como dimensiones tiene el espacio 
correspondiente. 


[A Fig. 5. 


Y todo esto, ¿qué tiene que ver con la 
Informática? Pues bien: es frecuente que 
los datos que tenemos que utilizar en 
nuestros programas no sean números als- 
lados, sino colecciones de éstos. Por 
ejemplo, recordemos la versión BASIC del 
programa de conversión de números de- 
cimales a la base 2: 


10 DIM R(10) 

20 FOR I=1 TO 101 LET R(1)=0: NEXT 1 

30 PRINT "dame un número entre O y 
1000" 

40 INPUT X 

50 FOR I=1 TO 10 

60 LET C=INT(X/2) 

70 LET R(1)=X-24C 

80 IF C=0 THEN GOTO 110 

90 LET X=C 

100 NEXT I 

110 FOR I=1 TO 10: PRINT R(11-1)3: 

NEXT 1 


Podemos ver en este programa que la 
variable X tiene siempre como valor un 
número entre 0 y 1.000; la varlable C va 
recibiendo los cocientes sucesivos de X 
al dividirlo por 2; y la variable | es un con- 
tador cuyo valor es un número compren- 
dido entre 1 y 10. 


AS AED 
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Estas tres variables tienen siempre, por 
tanto, un valor único. Sin embargo, ve- 
mos también que R es una variable dife- 
rente. En primer lugar, es preciso definir- 
la mediante una instrucción especial: 


En segundo lugar, no tiene un solo va- 
lor, sino diez distintos simultáneamente: 
todos los restos que vamos obteniendo 
de forma sucesiva al dividir entre 2 el nú- 
mero inicial (X) y los cocientes que lo van 
sustituyendo. Finalmente (al menos en 
BASIC), no podemos obtener el valor de 
R simplemente con la expresión: 


PRINT R 


como ocurre con las otras variables, que 
tienen un solo valor. Es preciso utilizar una 
instrucción más compleja, un bucle: 


FOR I=1 TO 10: PRINT R(I): NEXT 1 
A N 
1 An 


aunque en la línea 110 del programa ante- 
rior, la instrucción era un poco diferente, 
pues queríamos obtener los valores en 
orden inverso. En efecto: si | varía de 1 a 
10, la expresión (11-1) variará de 10 a 1. 

Pues bien: estas variables especiales, 
que poseen varios valores, se llaman a 
veces «colecciones», «series» y otros 
nombres semejantes, pero también es 
frecuente denominarlas «vectores», pre- 
cisamente porque tienen la misma es- 
tructura que los vectores geométricos. Se 
dice, además, que el número de valores 
que poseen es el número de «dimensio- 
nes» del vector, puesto que, como vimos 
antes, un vector tiene siempre tantos ele- 
mentos como dimensiones tiene el espa- 
cio sobre el que define la magnitud, di- 


rección y sentido de un segmento deter- 
minado. 

Recordemos ahora la versión PASCAL 
del mismo programa: 


program BASE2; 


var 
X, iz integer; 
r: arrayl1..101 of integer; 
begin 
writeln(*Dame un número entre O y 
1000”)3 readln(x)3 
for iz=1 to 10 do 
begin 
rtili= x mod 2; 
x3=x div 2; 
end; 
for iz=1 to 10 do write(rC11-1J)3 
end. 


Podemos ver que también existe una 
instrucción de declaración de la variable 
r, que ha de contener los restos, aunque 
es un poco diferente a la versión BASIC: 


La palabra inglesa «array» se puede 
traducir como «disposición», «secuen- 
cia», etc., y en este caso equivale a «vec- 
tor». La expresión 1..10 indica que este 
vector tiene 10 elementos, cuyos índices 
son los números comprendidos entre 1 y 
10. No hay nada en PASCAL que prohíba 
declaraciones como la siguiente: 


donde r sigue siendo un vector de 10 ele- 
mentos, pero donde los índices de éstos 
no son los números del 1 al 10, sino del 0 
al 9. 


También en el caso de PASCAL tene- 
mos que recurrir a un bucle para visuali- 
zar los diez valores de r: 


En cambio, en APL no existen instruccio- 
nes especiales para declarar vectores ni 
son necesarios bucles para imprimirlos, 
pues este lenguaje trabaja de forma na- 
tural con estas estructuras de datos. Por 
ejemplo, si queremos que V sea un vec- 
tor de diez elementos iguales a los diez 
primeros números pares, bastaría escribir: 


Vve2 4 6 8 10 12 14 16 18 20 


y para visualizar los diez valores de V bas- 
tará escribir: 


Cómo pintar 
o no pintar 


| queremos realizar el 
siguiente dibujo: 


Fig. 1. 


no tendríamos ningu- 
na pega para dibujar 
los diferentes cuadra- 
dos, pero nos surgiria 
un problema. Des- 
pués de dibujar un cuadrado, para pasar 
a hacer él siguiente hemos de dejar una 
parte sin pintar, es decir, hemos de con- 


seguir que la tortuga ande sin dejar ras- 
tro. 


Para ello, existe un comando que le or- 
dena a la tortuga que levante su lápiz y 
que no pinte hasta que nosotros se lo di- 
gamos. Este comando es: 


SL 


que es la abreviatura de Sube Lápiz. 


Cuando ya hayamos colocado a la tor- 
tuga en la posición donde queremos que 
vuelva a pintar, le hemos de decir que 
baje el lápiz con el comando: 


BL 


que es la abreviatura de Baja Lápiz. 


Ahora ya podemos hacer nuestro dibu- 
jo. Las órdenes son: 


AV 15 Gl 90 


AV 15 GI 90 


Cómo borrar 


Si al realizar alguno de nuestros dibujos 
nos equivocamos, con los comandos de 
borrar que conocemos hasta ahora (BP y 
LIMPIA) no nos queda más remedio que 
borrar todo el dibujo. Pero es una pena 


que por confundirnos en una línea tenga- 
mos que empezar de nuevo. 


Por ello, la tortuga dispone de una 
goma o borrador. Cuando le decimos 
que lo active, en lugar de dejar o no ras- 
tro al andar lo que hace es borrar las lí- 
neas que existan conforme pasa por en- 
cima de ellas. 


Para indicarle a la tortuga que borre, se 
utiliza el comando: 


GOMA 


Para que la tortuga deje de borrar he- 
mos de decirle SL o BL. 


Vamos a probarlo. Supongamos que 
estamos dibujando un cuadrado: 


Fig. 2. 


Los comandos que habremos escrito 
son: 


7 AV 25 GD 90 
? AV 25 GD 90 


7 AV 25 GD 90 


Si ahora escribimos: 


7 BK 25 6D 90 


nos quedará: 


Fig. 3. 


y esto no es un cuadrado. 

Para no borrar todo el dibujo, le deci- 
mos a la tortuga que queremos borrar 
sólo una parte y hacerlo bien. Las órde- 
nes serían: 


7 GOMA 


? GI 90 AY 25 


7? AV 25 GD 90 


my] La tortuga aparece 
==" y desaparece 


Cuando hemos finalizado cada uno de 
los dibujos que hemos hecho, hubiera 
quedado mejor que sólo se viera el dibu- 
jo y que la tortuga no apareciera. 

Existe la posibilidad de decirle a la tor- 
tuga que se esconda, que se haga invi- 
sible hasta que nosotros le digamos lo 
contrario. Sin embargo, hay que tener en 
cuenta que aunque nosotros no la vea- 
mos, la tortuga sigue ahí y si le decimos 
que ejecute algún comando lo hará 
igual que siempre. 

El comando que le dice a la tortuga 
que se oculte es 


OT 
y si deseamos que vuelva a aparecer 
MT 


Estas palabras son las abreviaturas de 
Oculta Tortuga y Muestra Tortuga. 


a LOGO 


Vamos a comprobar que la tortuga 
obedece estas órdenes: 


pulsamos 


[A Flg. 4. 


Hagamos ahora un dibujo, por ejem- 
plo, una espiral. Los comandos son: 


y la figura que nos queda es: 


Distintos colores 


Cuando nosotros escribimos o pinta- 
mos, no siempre utilizamos el mismo bo- 
lígrafo, sino que tenemos “bolis” y lapice- 
ros de diferentes colores. A la tortuga le 
ocurre lo mismo: dispone de diferentes 
tinteros que le permiten que su lápiz pin- 
te en distintos colores. 

Para decirle a la tortuga que queremos 
que cambie el color de su lápiz usamos 
el comando 

PONCL n 


abreviatura de PON Color Lápiz y donde 


n es un número que indica el color en el 
que la tortuga dejará su rastro a partir de 
este momento. 

Además de poder cambiar el color del 
lápiz de la tortuga, también podemos va- 
riar el color del fondo de la pantalla. El 
comando para hacer esto es: 


PONFONDO n 


siendo n un número que indica el color. 
Los números correspondientes a cada 
color son los siguientes: 


0 Transparente. 

1 Negro. 

2 Verde. 

3 Verde claro. 

4 Azul oscuro. 

5 Azul claro. 

6 Rojo oscuro. 

7 Azul celeste. 

8 Rojo. 

9 Rojo claro. 
10 Amarillo oscuro. 
11 Amarillo claro. 
12 Verde oscuro. 


13 Magenta. 
14 Gris. 
15 Blanco. 


En el caso de que el número n que pon- 
gamos en los comandos PONCL y PON- 
FONDO sea el mismo, la tortuga dejará 
rastro al andar, pero nosotros no lo vere- 
mos, por ser el color del lápiz el mismo 
que el color del fondo. 

Por tanto, acabamos de descubrir otra 
forma de borrar líneas cuando nos con- 
fundamos. Para ello, nos basta con cam- 
biar el color del lápiz al color que tenga 
el fondo y hacer pasar a la tortuga por 
encima de la línea equivocada. 

Por ejemplo, en el caso del cuadrado 
que veíamos antes, obtendríamos el mis- 
mo resultado con los siguientes coman- 
dos: 


PONCL 4 


GI 90 AV 25 
? PONCL 15 
? AY 25 GD 90 


Como se ve, hemos supuesto que el co- 
lor del fondo es el azul oscuro y que la tor- 
tuga estaba pintando el cuadrado en co- 
lor blanco. 


'D Os proponemos 


1. Intenta pintar la siguiente figura de 
tal manera que cada triángulo sea de un 
color diferente. 


a. 


2. Haz que la tortuga escriba tu nom- 
bre en la pantalla. Si quieres, puedes pin- 
tar cada letra de un color. Por ejemplo: 


3. También puedes dibujar este co- 
medor usando distintos colores: 


AAA 


[A A. 8. 
4. Pinta este chino: 


PS 


[A Flg. 9. 


O Para escribir 


Además de dibujar, nuestra tortuga es 
capaz de hacer muchas más cosas, que 
iremos viendo poco a poco. 

Entre ellas, la tortuga puede escribir lo 
que nosotros le pidamos. El comando de 
escritura es: 


ESCRIBE 
o su abreviatura: 


ES 
Pero nos falta decirle qué es lo que ha 
de escribir. 
Si deseamos que escriba una palabra, 
hemos de poner: 


ES “palabra 
es decir, ponemos dobles comillas (0 
delante de la palabra. 
Por ejemplo, si queremos que escriba 
HOLA: 


“ LOGO 


Por el contrario, silo que queremos que 
escriba es una frase o una lista de pala- 
bras, hemos de decirle: 


ES (lista o frase) 


es decir, encerramos la lista o frase entre 
corchetes ((  )). 

Por ejemplo, si queremos que escriba 
la lista de nuestros amigos, pondremos: 


y => 
» | 


=3 
wy 
M 


A 


7 ES [ANGEL JUAN] 
ANGEL JUAN 
>m 


mm] 


Flg. 11. 


o si queremos escribir una frase: 


A ES. [ZO0MO ESTAS?] 
) ¿400MO. ESTAS? 
y 78 


susanos [] Y 


| 'D Algunas funciones 


Una FUNCION es un tipo de orden que 
la tortuga es capaz de ejecutar pero que 
no varía su estado, es decir, que no cam- 
bia su posición. Más bien, lo que ocurre 
es que nos sirve para conocer alguna in- 
formación. Es como si a la tortuga le pre- 
guntáramos algo y ella nos respondiese. 

Por ejemplo, si deseamos conocer el 
número del color del lápiz que actual- 
mente está utilizando la tortuga, usare- 
mos la función: 


CL 


y si queremos conocer el número del co- 
lor del fondo de la pantalla, la función es: 


FONDO 


Sólo nos queda tener una cosa en 
cuenta. Las funciones no se utilizan como 
los comandos, sino que hay que hacer 
algo con ellas, con el resultado que dan. 
Lo más normal es decirle a la tortuga que 
escriba, mediante el comando ES, la res- 
puesta a lo que nosotros le preguntamos. 

Así, si suponemos que el color del fon- 
do es el verde y el color del lápiz de la 
tortuga el negro, al dat las siguientes ór- 
denes obtendríamos: 


Como podemos ver, la posición de la 
tortuga no varía, ya que no le hemos 
dado ninguna orden para que se mueva. 

Puedes probar tú a escribir lo que quie- 
ras. La tortuga te obedecerá. 


Ahora tú puedes ir cambiando los co- 
lores del lápiz y de la pantalla e irle pre- 
guntando a la tortuga cuál es su número 
correspondiente. Podrás comprobar que 
nunca se equivoca. 


PASCAL 


L mostrar un número 
con el procedimiento 
WRITELN, se utiliza el 
“espacio justo; por 
eso, si pusiéramos: 


writein ('Peso' 
100 + 23, Ene); 


en la pantalla saldría: 


Peso 123-17 


Esto se podría mejorar poniendo, por 
ejemplo: 


writeln ('Peso *, 100 + 23,” *, Ene); 
con lo que tendríamos: 
Peso 123 -17 


Sin embargo, es mejor indicarle al PAS- 
CAL de manera clara cuanto sitio quere- 


mos que ocupe un número. Esto se con- : 


sigue poniendo justo a continuación de 
lo que se quiere enseñar el numero de 
espacios a ocupar con dos puntos por 
delante; por ello: 

writeln ('Peso”, 100 + 23 :4, Ene:6); 
daría: 


Peso 123 -17 
(o o... — 4 espacios para 123 ) 
( s...». —> 6 espacios para -17 ) 


Tras utilizar WRITELN, las siguientes co-. 


sas que queramos sacar aparecerán por 
fuerza en la siguiente línea (write signifi- 
ca escribir In viene de line, línea). Ha- 
brá veces que, sin embargo, no quera- 


mos renunciar a la posibilidad de seguir 
escribiendo posteriormente en la misma 
línea; para esos casos está el procedi- 
miento WRITE, que se utiliza exactamente 
igual que el anterior, pero sin forzar el 
paso a la siguiente línea. 

Para aclarar todo esto, veamos el si- 
guiente ejemplo: 


program Ejemplo; 


begin 
writeln (Tras esto, nueva línea:”); 
write ('Pero tras esto no: ”); 
writeln ('¿lo ves?”); 
writeln; 
writeln (*Y, por fin, me despido.') 
end. 


Tras compilar y ejecutar el programa, 
tendremos en la pantalla: 


Tras esto, nueva línea: 
Pero tras esto no: ¿lo ves? 


Y, por fin, me despido. 


En el programa se ha utilizado una vez 


- el procedimiento WRITELN sin lista de co- 


sas para sacar. Es como escribir «nada» 
pasándose luego, por supuesto, a la si- 
guiente línea; por ello, queda un renglón 
vacío en la pantalla. 

Dependiendo del compilador de que 
se disponga, existen otros procedimien- 
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tos adicionales para la salida de datos. 
Por ejemplo, para limpiar por completo 
la pantalla de lo que pudiera tener escri- 
to previamente existe en algunos casos 
el procedimiento PAGE (página), que en 
otros se llama CLRSCR (de «clear screen», 
borrar pantalla). Para utilizarlo, bastaría 
con llamarlo por su nombre: 


page; 
writeln 
("Esto sale en una pantalla limpia.*); 


Aunque menos, también es probable 
que se disponga de un procedimiento 
para poder escoger el sitio de la panta- 
lla en que vaya a salir lo siguiente (algo 
así como el LOCATE del Basic). Por ejem- 
plo, podría ser: 


gotoxy (2 + 3, 17); 
writein (Esto, en la línea 17, columna 5”); 


Esta posibilidad de variación de unos 
casos a otros se debe a que en el PAS- 
CAL estándar no hay nada indicado al 
respecto y, por tanto, está hecho a gus- 
to de las personas que hayan desarrolla- 
do cada compilador. Cuando aprenda- 
mos a escribir nuestros propios procedi- 
mientos superaremos fácilmente todas 
estas diferencias. 


IQ Instrucciones de entrada 


Al leer un número introducido por te- 
clado como, por ejemplo, -17, y a la in- 
versa de lo que sucede cuando quere- 
mos mostrarlo, hay que convertir esa se- 
cuencia de teclas en el código que utili- 
zará internamente el ordenador para 
guardar ese número. 

Por otra parte, los datos que se introdu- 
cen desde teclado hay que guardarlos 
en memoria. Estos datos pueden ser dis- 
tintos de una vez para otra, y, por tanto, 
habrá que guardarlos en una zona de 
memoria reservada para ello, es decir, 
en una variable. 

Como es de suponer, existen procedi- 
mientos ya preparados que nos hacen 
todo esto. Los más corrientes son los de- 
nominados READ y READLN (read significa 
leer e In, una vez más, viene de línea). 

Normalmente, la única diferencia entre 


ambos estriba en que, cuando se utiliza 
READLN, una vez se ha llenado la variable 


- con el dato tecleado, todo lo que se hu- 


biera escrito en la misma línea hasta que 
se pulsó la tecla de RETURN (o ENTER o IN- 
TRO O NEWLINE según el ordenador) se 
pierde y no se puede aprovechar en una 
lectura posterior. Utililándose READ, lo 
que resta en la línea queda disponible 
para las siguientes instrucciones de lec- 
tura. 

(NOTA: Utilizando el TURBO PASCAL con 
el ordenador personal IBM o compali- 
bles, para que READ funcione de esta 
manera es necesario poner tras la cabe- 
cera de programa, por ejemplo, 
(-$56G 128»), para así forzar la lectura de te- 
clado a través del sistema operativo.) 


Por ejemplo: 


program LeeDatos: 


var 
Peso : 0,.200; 
Letra1, Letra2 ;: char; 
begin 
writeln 


(Teclee dos letras (y pulse RETURN)'); 
read (Letra1); Ñ 
readin (Letra2); 
writeln (*Han sido la ',Letral,' y la', 
Letra 2, '¿verdad?"); 


write ('Teclee el peso (y RETURN):'); 
readin (Peso); 
write ('Le quedan sólo ',200 - Peso, 
* para llegar a los 200.) 
end. 


Alutilizarse READ para Letra1, la segun- 
da letra puede teclearse en la misma lí- 
nea, sin separarla de la segunda pulsan- 
do la tecla de Return, pues seguirá dis- 
ponible para su posterior lectura. Si se hu- 
biera utilizado READLN para Letral, la 
segunda letra se habría perdido y se ten- 
dría que volver a escribir (seguida de RE- 
TURN, que es la forma de indicarle al orde- 
nador que ya se ha terminado de escri- 
bir el dato). 

En el ejemplo también se hace la lec- 
tura de un número entero. Si el número te- 
cleado fuese incorrecto (por ejemplo, 
X25) o estuviera fuera de rango (68030), 
el programa se pararía dando un aviso 
de error. En otra ocasión veremos cómo 
se puede corregir esto fácilmente. 

Si varios datos van a ser leídos de una 


sola vez, como sucede con Letral y Le- 
tra2, es posible hacerlo con una sola ins- 
trucción: 


readin (Letra1,Letra2); 


Esto equivaldría a las dos primeras ins- 
trucciones de lectura del ejemplo. Sin 
embargo, lo aconsejable es utilizar siem- 
pre una instrucción READLN por cada 
dato a leer, para así poder sacar por 
pantalla cada vez un mensaje indicativo 
de lo que hay que teclear. 


Expresiones 


Los dos primeros datos que se leían en 
el programa anterior simplemente se vol- 
vían a presentar sin hacer ningún proce- 
so ni generar nuevos datos con ellos. Evi- 
dentemente, esto sólo sirve para muy 
poco. Mediante el uso de EXPRESIONES se 


pueden generar nuevos valores a partir - 


de datos previos. Por ejemplo, a partir 
del peso tecleado hemos obtenido lo 
que queda para llegar a doscientos. 

Una expresión es una lista de variables 
y constantes combinadas mediante OPE- 
RADORES para dar un resultado que, a su 
vez, puede ser guardado en una varia- 
ble, mostrado en la pantalla o impreso- 
ra, etc. 

En una expresión SOLO se pueden com- 
binar constantes y variables de un mismo 
tipo. No tiene sentido sumar un número a 
una letra. Por ello, según sea el tipo de 
los elementos que la integran, se dice 
que una expresión es de tal tipo o de tal 
otro. 

En principio, hay cinco operadores que 
se pueden utilizar en expresiones de tipo 
INTEGER. Se escriben como +, -, », DIV y 
MOD: 

+ y - sirven para sumar o restar los va- 
lores que se encuentran por delante y 
detrás de ellos: 3 + 1 hace que se sumen 
3 y 1 y, por tanto, equivale a poner 4. 


La multiplicación se indica con +: 2 + 3 
es igual a ó. 


DIV representa la división entera, es de- 


cir, sin obtener decimales. 5 DIV 2 da * 


como resultado 2, al igual que 4 DIV 2. 


MOD es el resto de la división entera. 5 
MOD 2 vale 1, mientras que 4 MOD 2 da 0. 


Las expresiones de tipo INTEGER se cal- 
culan empezando por la izquierda, pero 


realizándose las sumas y restas después 
de las demás operaciones. Por ejemplo: 


5 -4 + 9 MOD 5 + 7 + 3 primero - y MOD: 


S-4+ 4+21 luego + y -; 
l +. 4421 
5 +2] 
26 


Sin embargo, se puede alterar el orden 
de cálculo poniendo entre paréntesis lo 
que se desea calcular en primer lugar: 


5 — (4 + 9) MOD (35 + 7): 3 primero lo 
de los 
parentesis: 

. 3 luego » 

y MOD: 


13MOD 12 


5- 
5 - 1 .3 
5 p 


3 


ol 


Se pueden utilizar todos los paréntesis 
que se quiera e incluso paréntesis dentro 
de paréntesis. Es una buena práctica po- 
ner paréntesis en cuanto haya la más mí- 
nima duda sobre el orden de cálculo de 
una expresión, pues además la expre- 
sión queda mucho más clara, pero con- 
viene vigilar que todos los paréntesis que 
se abran se cierren luego, pues si no se 
producirá un error al compilar el progra- 
ma. 

El operador - aplicado a un valor als- 
lado sirve para cambiar su signo; se dice 
en este caso que es un operador «moná- 
dico», mientras que en el caso normal es 
un operador «diádico» (es decir, se apli- 
ca a dos valores): 


2-(-(5+4-+ 3) s Igual a 
2 » (-17) y esto es Igual a -34. 


Una expresión de un tipo dado se pue- 
de poner en cualquier lugar en que pue- 
da ir una variable o constante del mismo 
tipo, salvo advertencia en contra, y equi- 
vale a poner su resultado en el momento 
de hacer el cálculo. 


Asignación 


Ya hemos visto cómo, mediante los 
procedimientos READ y READLN, es posi- 
ble guardar datos tecleados en varia- 
bles. Sin embargo, las variables se utili- 
zan para guardar no sólo datos teclea- 
dos, sino datos elaborados por el propio 
programa. Esto se consigue mediante las 
instrucciones de asignación. 
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Estas constan de dos partes separadas 
por el operador de asignación. A la iz- 
quierda se escribe el nombre o identifl- 
cador de la variable en que se desea 
guardar el dato y a la derecha la cons- 
tante, variable o expresión cuyo valor se 
desea guardar. 

El operador se escribe como :=, o sea, 
dos puntos INMEDIATAMENTE seguidos de 
un signo igual. En definitiva: 


Nombre de la variable := expresión, 
constante o variable 


El valor a guardar DEBE ser del mismo 
tipo que la variable en que se guarda. No 
se pueden mezclar nunca tipos distintos. 
Veamos un ejemplo: 


program Asignacion; 


const 
Dos = 2; 
var 
N: integer; 
C: char; 


begin 
N:= 7; 
Gia lA”: 
writeln CN vale *,N.' y C vale *,C): 


N:=N+1; 
writeln ('N vale ahora ',N); 


N:= N div Dos + 2; 
writeln ('N vale ahora ',N) 
end. 


Al correr el programa, tendremos en la 
pantalla: 


N vale 7 y C vale A 
N vale ahora 8 


N vale ahora 6 


Está claro que para guardar un valor en 
una variable antes hay que calcularlo. 
Por ello, en los casos en que la variable 
a la que vamos a asignar el valor apare- 
ce también a la derecha, se utiliza su va- 
lor anterior para obtener el resultado de 
la expresión, y sólo una vez calculada 
ésta pasará la variable a tener el nuevo. 

Así, la instrucción N:=N + 1 toma el 
valor anterior 7 en el ejemplo) para cal- 
cular la expresión. Una vez hecho esto, el 
resultado (8 en el ejemplo) se guarda en 
N. 

Si a continuación hubiera otra instruc- 
ción N:=N + 1, N pasaría a valer 9, etc. 


/ Introducción 


soft-Disk Operating 
, System. Es un sistema 
operativo creado por 
la compañía norte- 
americana Microsoft 
para ordenadores 
po basados en los micro- 
procesadores 8088 y 8086 de Intel. Antes 
de que IBM lo adoptase como sistema 
operativo para su ordenador personal, 
pugnaba con el CP/M 86 por convertirse 
en un estándar en el terreno de los equi- 
pos de 16 bits, pero a raíz de que la po- 
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S/DOS significa Micro- * 
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SISTEMA OPERATIVO: MS-DOS 


derosa multinacional norteamericana lo 
adoptase para su IBM PC, MS/DOS se ha 
convertido en el rey indiscutible de los 
sistemas operativos para equipos basa- 
dos en un microprocesador de 16 bits. 

Conceptualmente, MS/DOS, al haber 
seguido las pautas de CP/M, guarda 
gran similitud con éste, pero también tie- 
ne muchos de sus defectos. MS/DOS está 
orientado principalmente a la gestión de 
archivos (o ficheros) en disco. En su pri- 
mera versión, DOS 1.0 está configurado 
para operar con 2 unidades de disco 
flexible, mientras que la versión 2.0 (y 
posteriores) viene preparada para con- 
trolar unidades de disco rígido. 


MAQUINA 


lA En MS/DOS los dispositvos periféricos están controlados por módulos Independlentes. 
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Debido a que las primeras versiones de 
MS/DOS se encuentran en la actualidad 


completamente desfasadas y supera- : 


das, aquí nos referiremos a las versiones 
desde la 2.00 en adelante, aunque mu- 
chos conceptos son válidos para todas 
ellas. 

En MS/DOS, cada uno de los distintos 
dispositivos periféricos conectados al or- 
denador tiene un programa o módulo 
propio del sistema operativo encargado 
de controlarlo. Esto constituye una gran 
ventaja, ya que el equipo puede adap- 
tarse al uso de todo tipo de periféricos 
con sólo añadir un módulo que controle 
cada nuevo dispositivo conectado; pero 
a la vez es también un inconveniente, ya 
que al estar pensado el sistema operati- 
vo en función de las necesidades del or- 
denador y no de las del usuario, obliga a 
éste a conocer de manera precisa las 
distintas órdenes del MS/DOS. 


UM ricneros en MS/DOS 


Un fichero es un conjunto de informa- 
ción al que se le asigna un nombre, y que 
está guardado en un dispositivo de alma- 
cenamiento secundario, como puede 
ser un disco flexible o un disco duro. 

La información que contiene un fichero 
es muy variada (programas, texto, da- 
tos...) y lo más normal es que sea homo- 
génea, es decir, lo usual es que un fiche- 
ro contenga un programa, o un texto, o 
datos de alguna aplicación, pero no co- 
sas mezcladas. 

Los ficheros se referencian por su iden- 
tificación, que está compuesta, de forma 
obligatoria, por un nombre, y opcional- 
mente por una extensión, separadas am- 
bas partes por un punto. El nombre debe 
estar formado por al menos un carácter, 
siendo su longitud máxima de 8. Estos 
pueden ser letras, números o determina- 
dos signos de puntuación que no se ultili- 
cen en la formulación de comandos. Por 
ello, no se admite la inclusión de puntos 
ni espacios en blanco dentro del nom- 
bre. 

La extensión del nombre del fichero es 
una cadena, de, como máximo, 3 carac- 
teres. Se utiliza para que el usuario tenga 
una idea del tipo de información que 
contiene el fichero. Por ejemplo, los co- 
mandos externos del MS/DOS residen en 
ficheros cuya extensión es “.COM" (para 


Indicar que son COMandos). Un progra- 


ma en lenguaje BASIC podria guardarse 
en un fichero con extensión “.BAS", etc. 


Volumen en unidad Á sin etiqueta 
Directorio de Ar 


22/09/35 
22/04/83 
22/09/85 
22/04/85 
22/09/85 
22/04/85 
22/04/85 
22/04/85 
22/09/85 
22/04/85 
22/04/85 
22/04/85 
22/04/85 


DISKCOMP* 
DISKCOPY 
EDLIN 22/04/85 
FDISK 22/04/85 
FIND 22/04/85 
FORMAT 22/04/85 
FRAFTABL 22/04/85 
GRAPHICS 22/04/85 
JOIN 22/04/85 
KEYBFR 22/04/85 
KEYBGR 22/04/85 
KEYBIT 22/04/85 
KEYBSP 22/04/85 
KEYBUK 22/04/85 
LABEL 22/04/85 
MODE 22/04/85 
MORE 22/04/85 
PRINT 22/04/85 
RECOVER 22/04/85 
RESTORE 22/04/85 
SELECT 22/04/85 
SHARE 22/04/85 
SORT ; 22/04/85 
SUBST 22/04/85 
sYs 22/04/85 
TREE 22/04/85 
VDISK 22/04/85 
DEBUG 22/04/85 
LINK 22/04/85 
40 Archivo(ls) 


Listado del directorio del disco del sistema 
operativo. 


Un tipo de ficheros algo diferentes a los 
demás son los denominados de tipo 
“batch”. En éstos, el usuario almacena 
una lista de órdenes o comandos de 
MS/DOS, que se ejecutan de manera se- 
cuencial desde el momento en que el 
usuario manda al sistema operativo que 
procese el correspondiente fichero 
batch. Estos ficheros, cuya utilidad es 
ahorrar trabajo y tiempo al usuario, tie- 
nen la extensión “.BAT". De este modo, si 
tenemos una serie de órdenes que utili- 
zamos de manera repetida, se evita el te- 
ner que teclearlas una por una cada vez 
que se necesite emplearlas. 

La flexibilidad en el manejo de estos fi- 


COMMAND.COM 


FORMAT.CO 


[A Con el uso de caracteres comodín podemos 
nombrar varios ficheros a la vez. 


cheros viene dada por las siguientes ca- 
racteristicas: 


— La existencid de unas “órdenes in- 
ternas” o subcomandos, que permiten al 
usuario crear un “programa de coman- 
dos MS/DOS” dentro del fichero batch. Es 
posible, por ejemplo, ejecutar iterativa- 
mente un grupo de órdenes, seleccionar 
los mandatos a procesar, esperar la en- 
trada desde el teclado, etc. 


— Al crear un fichero batch se pueden 
dejar comandos con parámetros varia- 
bles cuyo contenido se especificará en 


la orden de procesamiento del fichero 
batch. 

— Enlace de ficheros batch. Aunque 
de forma restringida, desde un fichero 
batch se puede provocar la ejecución 
de otro. La única limitación es que las lla- 
madas deben colocarse al final del fi- 
chero. 


El manejo de los ficheros en MS/DOS se 
facilita por una serie de “utilidades” que 
se pueden considerar “estándar”, pues 
existen en la mayoría de los sistemas 
operativos. Una de ellas es la referencia- 
ción de ficheros mediante el uso de ca- 
racteres “comodín”. Su utilidad reside en 
que permiten extender la actuación de 
un comando a un grupo genérico de fi- 
cheros, sin necesidad de especificar el 
nombre de cada uno de ellos. 

En MS/DOS existen dos caracteres “co- 
modín”: el asterisco (“*”), que se utiliza 
para sustituir un grupo de caracteres, y la 
interrogación (“2”), para sustituir un solo 
carácter. Por ejemplo, si queremos refe- 
renciar a todos los ficheros de exten- 
sión “.COM”* del disco del sistema, no es 
necesario nombrarlos todos, sino que 
basta con poner “*. COM”, El ordenador 
entiende que es una referencia a todos 
lo ficheros cuyo nombre sea cualquier 
cadena de caracteres (esa es la inter- 
pretación del “*”), seguida de la cadena 
“.COM“. De igual manera, si tuviéramos 
tres ficheros de nombre “CAP1.TEX*“, 
“CAP2.TEX" y “CAP3.TEX“, podríamos refe- 
renciarlos a todos poniendo “CAP?.TEX“. 


La jerarquización de los direc- 
ñ torios nos permite tener de 
“| una manera clara y ordenada 
y todos los datos. 
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a Organización de ficheros 
en MS/DOS 


Una de las novedades que aportó la 
versión 2.00 de MS/DOS es la organiza- 
ción de los ficheros en directorios. Un di- 
rectorio es una colección de ficheros o a 
su vez de otros directorios (también lla- 
mados subdirectorios). Estos subdirecto- 
rios pueden contener más ficheros y/o 
subdirectorios, desarrollándose así una 
estructura ramificada en forma de árbol 
invertido, cuya fuente o inicio es el direc- 
torio raíz, identificado por el carácter “.”. 

La utilidad de este sistema es que se 
pueden estructurar los datos que se refie- 
ren a un tema específico en su propio di- 
rectorio, contribuyendo así a tener una 
estructura clara y ordenada de los mis- 
mos. 


- Si trabajando en un subdirectorio se 
quisiera hacer referencia a un fichero de 


- Otro subdirectorio, al nombre de este fi- 


chero habría que anteponer la descrip- 
ción de la rama a la que pertenece. Esta 
descripción es lo que se conoce como 
“path” o “camino” de un fichero. Este ca- 
mino puede ser absoluto o completo (si 
se incluye la descripción de todos los ni- 
veles o subdirectorios de la rama, empe- 
zando en el directorio raíz), o relativo (si 
se parte desde el subdirectorio en el que 
se está trabajando). 

MS/DOS pone a disposición del usuario 
comandos para realizar casi cualquier 
operación relativa a los directorios, tales 
como creación, borrado, listado de su 
contenido, movimiento a través de la es- 
tructura en árbol, etc. 
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